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1.0 ABSTRACT 

THIS DIAGNOSTIC PROGRAM IS DESIGNED TO BE A COMPREHENSIVE 
CHECK OF THE POPU/05 AND POPU/20 PROCESSORS, THE PROGRAM 
EXECUTES EACH INSTRUCTION IN ALL ADDRESS MODES AND INCLUDES 

tests for traps and the teletype interrupt sequence. The 

PROGRAM DOES NOT TEST INSTRUCTIONS NOT COMMON TO THE 11/20 
OR 11/05, THE PROGRAM RELOCATES THE TEST CODE THROUGHOUT 
MEMORY 0-28K. 

2.0 REQUIREMENTS 

2.1 EQUIPMENT 

PDP11 FAMILY CENTRAL PROCESSOR 
OPTIONAL - KW11-L (LINE CLOCK) 

2.2 STORAGE 

The PROGRAM USES ALL OF THE FIRST 4K OF MEMORY (EXCLUDING 

THAT AREA OF MEMORY RESERVED FOR THE LOADERS). 

2.3 PRELIMINARY PROGRAMS 

NONE. HOWEVER. THE EMT AND TRAP INSTRUCTION SHOULD BE 
VERIFIED BEFORE RUNNING. 

3.0 LOADING AND STARTING PROCEDURE 
LOAD PROGRAM USING ABS LOADER 

IF The CONSOLE TTY IS a SERIAL LA33 OR A VT05 FILLER 
CHARACTERS MAY BE REQUIRED, DEPOSIT INTO LOCATION 1002 
(FILLS) A 4400, 

LOAD ADDRESS » 200 
PRESS START 

SET OPERATING SWITCHES 

PASS COUNT IS PRINTED AFTER EACH PASS (SEE SEC 6.4) 

"DHQKC DONE" IS PRINTED WHEN DONE (SEE SEC 7,1) 

4.0 SWITCH SETTINGS 

SW15 HALT ON ERROR,,, THIS SWITCH WHEN SET WILL HALT THE 
PROCESSOR WHEN AN ERROR IS DETECTED. THE PC*2 AND THE 
CURRENT STATUS AT THE TIME OF THE ERROR IS STORED ON 
THE STACK (R6) , IF THIS SWITCH IS SET BEFORE AN ERROR 
IS DETECTED THE PROGRAM HALTS AS DESCRIBED AROVE, THE 
PROGRAM MAY BE HALTED AFTER THE ERROR TYPEOUt OCCURS 
BY SETTING SW13 AFTER THE TYPEOUT BEGINS. 

SW14 LOOP SUBTEST,,, THJS SWITCH WHEN SET LOOPS THE CURRENT 
SUBTEST RUNNING REGARDLESS OF ERROR. 

SW13 INHIBIT ERROR PRINTOUT « THIS SWITCH WHEN SET INHIBITS 
THE ERROR PRINTOUT, 

swi2 inhibit relocation, . , this switch when set causes the 
PROGRAM TO BE EXECUTED ONLY IN THE FIRST 4K OF MEMORY, 
THIS SWITCH CANNOT BE SET WHEN THE PROGRAM IS RUNNING. 

SWll INHIBIT SUBTEST ITERATION... THIS SWITCH WHEN SET 
INHIBITS SUBTEST REITERATION. NORMALLY EACH SUBTEST. 
IS EXECUTED 8 TIMES BEFORE THE NEXT SUBTEST IS RUN. 
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setting swii causes each test to be executed 
before starting the next subtest, 


once: 




SW10 


RING BELL ON ERROR,, 1 THIS SWITCH WHEN SET WILL 
THE BELL WHEN AN ERROR IS DETECTED. 


RING 




SW7 


INHIBIT ALL BUT ERROR TYPEOUTS . , . TH IS SWITCH 
RESET (0) INHIBITS THE END OF PASS TYPEOUT (ICNTs 
AND THE END OF PROGRAM TyPEOuT (DZQKC DONE) 


WHEN 

XXXX) 


5,0 


ERRORS 





IF *N ERROR IS DETECTED THE PROGRAM WILL TRAP TO THE ERROR 
HANDLING ROUTINE (ERROR) . IF ENABLED THIS ROUTINE WILL BYTE 
THE PC AND THE PRQCESSER STATUS AT THE TIME OF THE ERROR, 
ALSO (IF REQUIRED) THE ORIGINAL PC (WHERE THE PC WAS 
RELOCATED FROM) . 



5.0,1 ERROR PRINTOUT FORMAT 

ICNTsAAAA PCsBBBBBB PSW*ODDDDD 
OR 

ICNT-AAAA PCiBBBBBB PSwsDDDDDD PC RELOCATED FROM CCCCCC 

WHERE! AAAAtPASS COUNT 

BBBBBBtPC AT THE TIME OF THE ERROR 

cccccc*pc of the original code relocated 

DDDDDDiPSW AT THE TIME OF THE ERROR. 



5.1 PARITY ERROR DECTECTION 

IF A PARITY error IS DETECTED THE PROGRAM WILL TYPE A 
MESSAGE"PARJTY ERROR" AND SCAN MEMORY FOR THE PARITY ERROR, 
WHEN THE FAILING ADDRESS IS LOCATED THE PROGRAM WILL HALT 
WITH THE VALUE OF THE A03RESS+2 IN R0, 

5.2 ERROR LOOPING 

THE SUBTEST DETECTING THE ERROR MAY BE LOOPED INDEFINITELY 
BY SETTING SW14, SETTING SW13 WILL INHIBIT THE TYPEOUT AND 
ALLOW SCOPING THE FAULTY SIGNAL(S), 

5.3 UNPREDICTED ERRORS 

the program may ON OCCASSION DETECT A MEMORY ERROR THE 
RESULTS OF WHICH WERE NOT PREDICTABLE IN WHICH CASE THE 
PROGRAM MAY BEHAVE UNPREDICTABLY. WHEN THIS HAPPENS THE 
USER MUST RETRACE THE PROGRAM STEPS TO RESOLVE WHERE THE 
ERROR OCCURRED. THE FOLLOWING ITEMS SHOULD BE CONSIDERED 
AND MAY BE OF USE WHEN RETRACING A FAILURE OF THIS NATURE, 

1, halt the program hf necessary) 

2. EXAMINE RELR1 

ADDRESS RELR1 (1006) CONTAINS ThE UNRELOCATED VALUE OF 
THE PC OF THE LAST TEST THAT WAS SUCCESSFULLY EXECUTED. 
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3, EXAMINE FACTOR 

ADDRESS FACTOR (1004) CONTAINS THE RELOCATION FACTOR, 

4, EXAMINE ALL LOCATIONS STARTING WITH THE ADDRESS 
SPECIFIED in Rl/RUUF PSW BJTU *0/1) COMPARING THEIR 
CONTENTS WITH THE CONTENTS OF THE' CORRESPONDING 
UNRELOCATEO COOE (SPECIFIED IN 1006) AS SHOWN IN THE 
LISTING, EXAMINE AND COMPARE UNTIL EITHER A DIFFERENCE 
IN INSTRUCTION (I.E,. THE ERROR) OR THE NEXT 'SCOPE* IS 
SEEN. 

IF The program traps and halts AT A TRAP/INTERRUPT VECTOR+2 
(NOTE) THE POP- 11/45 WILL DISPLAY THE ADDRESS OF THE HALT+2 
I.E'. , A FALSE TRAP TO 4 WILL DISPLAY 10), 

1A. EXAMINE THE STACK (RS) 

THE Top woro on the stack contains the pc at the time of 
THE TRAP. if THE PC IS GREATER THAN 20000, THEN 

2A, EXAMINE LOCATION 1002 (FACTOR) 

THIS LOCATION CONTAINS THE PROGRAM RELOCATION FACTOR 
WHICH, WHEN SUBTRACTED FROM THE PC GIVES THE PC OF THE 
ORIGINAL CODE, 



6.0 SUBROUTINE ABSTRACTS 



6,1 SCOPEA 

THE SCOPEA ROUTINE IS ENTERED BY THE SCOPE (EMT) INSTRUCTION 
AND IS EXECUTED AT THE START OF EACH SUBTEST, THE ROUTINE 
MONITORS SW14, SW11 ANO SW 8 ANO TAKES APPROPRIATE ACTION. 
ALSO, THIS ROUTINE STORES IN Rl/RH THE FIRST ADDRESS OF THE 
SUBTEST BEING entered, 



6.2 ERROR 

THE ERROR ROUTINE IS ENTERED BY THE HLT (TRAP) INSTRUCTION, 
AND IS EXECUTED WHEN A PREDICTABLE ERROR IS DETECTED. THIS 
ROUTINE MONITORS SW15, SW13, AND SW10, 

6.3 RELOC 

THE RELOC ROUTINE IS ENTERED BY A MOV RELOC, PC 
INSTRUCTION, THIS ROUTINE RELOCATES THE PROGRAM CODE 
THROUGHOUT MEMORY, AND 'JUMPS* TO THE RELOCATED CODE AFTER 
IT HAS BEEN MOVED SUCCESSFULLY. IF THE CODE CANNOT BE 
RELOCATED (BECUASE of INSUFFICIENT MEMORY) THE ROUTINE 
'JUMPS' TO THE NEXT SECTION OF UNRELOCATED PROGRAM CODE. 
THE COOE MOVED IS LESS THAN IK (4000) BYTES), AT THE START 
AND END OF EACH SECTION OF CODE To BE MOVEO ARE A SECTION OF 
CODE WHICH ESTABLISHES THE FIRST ADDRESS OF THE CODE TO BE 
MOVED, AND SETS A SCOPE POINTER (Rl/Rll) AND, ALSO A SECTION 
WHICH ESTABLISHES the LAST ADDRESS AND 'JUMPS' TO THE 
RELOCATION (RELOC) ROUTINE, EACH SECTION OF CODE IS 
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IDENTIFIED as shown belqwi 

! 000000000 B 020 first address to be RELQCATEO 000000000 
CODE TO BE MOVED AND EXECUTED 

I0000000000000UAST ADDRESS OF CODE TO BE RELOCATED 00000000 

THE REIOC ROUTINE DOES NOT RELOCATE PROGRAM CODE INTO THE 
LAST 1000(B) BYTES OF MEMORY. THUS PRESERVING THE LOADERS. 

6.4 END 

THIS ROUTINE IS ENTERED AT THE COMPLETION OF EACH PASS IT 
SETS UP (LOADS NEW PROCESSOR STATUS) FOR THE NEXT PASS) AND 
PRINTS THE PASS COUNTl 

ICNT»XXXX 

7.0 MISCELLANEOUS 

7.1 EXECUTION TIME 

THE EXECUTION TIME IS HIGHLY VARIABLE (DEPENDENT ON 
PROCESSOR. TYPE OF MEMORY. AND AMOUNT OF MEMORY), HOWEVER. 
WHEN THE PROGRAM IS RUNNING SUCCESSFULLY THERE IS A 
NOTICEABLE 'FLICKER' DISPLAYED IN THE CONSOLE LIGHT PATTERN 
THE 'FLICKER' WILL DIM WHEN 'T' BIT TRAP PASSES (EVERY ODD 

passj are running, the program should be run for a minimum 

OF! 

2 PASSES ICNTS2 11/05 OR 11/20 
SOME TYPICAL TIMES FOLLOW! 

8.0 PROGRAM description 

THE PROGRAM IS DIVIDED INTO FOUR SECTIONS OF POSITION 
INDEPENDENT RELOCATABLE TEST CODE. EACH SECTION IS 
APPROXIMATELY IK WORDS LONG. (EXCEPT SECTION A), 

SECTION 0 THIS SECTION TEST THE UNARY INSTRUCTION SET 
EXECUTING EACH UNARY INSTRUCTION IN EACH ADDRESS 
MODE (EXCLUDING UNARY INSTRUCTIONS USING ADDRESS 
MODE 7). 

SECTION i THIS SECTION TESTS THE UNARY INSTRUCTIONS USING 
ADDRESS MQOE 7 AND BINARYS IN ALL ADDRESS MOOES 
(EXCLUDING BINARY BYTE OPS USING ADDRESS MODE 7), 

SECTION 2 THIS SECTION TEST BINARY BYTE OPS USING ADDRESS 
MODE 7, JMP, JSR AND PROGRAM TRAP (JOT, TRAP AND 
CHf ) INSTRUCTIONS, 

section a following section 2 is a routine to ascertain 
WHICH CP The program is running on, the RESULTS 
ARE USED BY THE FOLLOWING CODE TO CHECK THE 
ADDITIONAL INSTRUCTIONS/FEATURES OF THE li/40 AND 
11/43. 




SECTION 3 THIS SECTION CHICKS THAT EACH SIT IN THE 
PROCESSOR STATUS WORD (PSW) CAN 8E SET CLEARED. 
RESERVED INSTRUCTION, AND ODD ADDRESS TRAPS, 

FOLLOW I NO SECTION 3 ARE TWO ROUTINES TO CHECK ThE TELETYPE 
PRINTER LOOIC ANQ A ROUTINE TO START THE KW11-L LINE CLOCK. 
IF The kwu-l is available the PRIORITY ARBITRATION logic is 
TESTED. 

AFTER each INDIVIDUAL SECTION HAS BEEN EXECUTED THE "RELOC" 
ROUTINE WILL RELOCATE THE SECTION THROUGHOUT ALL MEMORY UP 
TO 28K, WHEN THE SECTION HAS BEEN RELOCATED AND EXECUTED IN 
ALL MEMORY THE "RELOC ROUTINE WILL RETURN THE PROGRAM TO 
THE NEXT UNRELOCATED SECTION. 

RELOCATION AND EXECUTION OF ALL SECTIONS THROUGHOUT ALL 
MEMORY CONSTITUTES A SINGLE PASS, 

UPON COMPLETION OF A PASS OF THE PROGRAM THE PROGRAM 
REStARTS USING A NEW PROCESSOR STATUS DEPENDING ON THE TYPE 
OF PROCESSOR AND THE PASS COUNT, 

STACK POINTER 

THE STACK POINTER IS SET AT 500, 

NOTE! IF THE PROGRAM IS RUNNING IN EITHER USER OR 
SUPERVISOR MODE (NOT APPLICABLE IF 11/20 OR 11/05) THE 
USER/SUPERVISOR STACK POINTER IS SET TO S00 AND THE KERNEL 
STACK POINTER IS SET To 800, THE KERNEL STACK POINTER IS 
USED ONLY FOR THE SCOPE, HLT , TTY, AND KWU-L (IF AVAILABLE 
TRAP/INTERURT ROUTINES. 

POWER FAILURE 

A POWER FAIL SERVICE ROUTINE IS INCORPORATED IN THE TEST, 
WHEN USING THIS PROGRAM The POWER SHOULD BE TURNED OFF WHEN 
RUNNING TO CHECK THE POWER FAIL LOGIC. WHEN THE POWER FAILS 
THE PROGRAM WILL TYPEl 
POWER FAILED 

AND RESTART THE PROGRAM AT THE BEGINNING, (START) 

USER DEFINED RELOCATION LIMITS 

THE PROGRAM WILL REQUEST A LOWER AND UPPER LIMIT FOR 
RELOCATION, THE LIMITS MUST BE BETWEEN 20000 AND 157776. 
THE PROGRAM WILL EXECUTE IN THE LOWER 4K (0-17776) AND THE 
LIMITS SPECIFIED, 

THE STARTING ADDRESS IS 204. 

TO RETAIN PREVIOUSLY SPECIFIED LIMITS START AT 210, 
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.MUST SEG?MO,BC 
.LIST M£ 

. A 8 S 

.title front end 

(CONTAINS DEFINITIONS, register ASSIGNMENTS and macro CALLS 
I GENERAL REGISTER ASSIGNMENTS 



000000 


R0«X0 


000001 


RltXl 


000002 


R2iX2 


000003 


R3»%3 


000004 


R4iX4 


000005 


R5»X5 


000006 


SPaX 6 


000007 


PC*X7 


000000 


R10s*0 


000001 


Rll*xl 


000002 


R1?*X2 


000003 


R13*X3 


000004 


R14»X4 


000005 


R15=X5 



000001 

000002 

000004 

000010 

000020 

000340 

000300 

000200 



(STATUS REGISTER (PSW) SH ASSIGNMENTS 



C«1 
V*2 
2 = 4 

N»10 

T*20 

PRTY7*340 

PRTY6=300 

PRTY4*200 

(VECTOR AODRESSES 



(C BIT 
(V SIT 
)? SIT 
( N SIT 
* * T * SIT 
(PRIORITY LEVEL 
(PRIORITY LEVEL 
(PRIORITY LEVEL 



000004 


ERRVECs4 


(ADDRESS OF 


000010 


RESVEC«10 


(AOORESS OF 


000014 


TB I TvEC*l4 


(ADDRESS OF 


000014 


TRTVEC*H 


(ADDRESS OF 


000014 


BPTVEC»14 


(AOORESS OF 


000020 


IOTVEC-20 


(ADDRESS OF 


000024 


PFVEC«24 


(AOORESS OF 


000030 


EMTVEC«30 


(ADDRESS OF 


000034 


TRAPVEC*34 


(ADDRESS OF 


000064 


TPVEC*64 


(ADDRESS OF 


000100 


LKVEC*100 


(ADDRESS kwj 


000240 


P I RVeC»240 


(AOORESS OF 


000244 


FPEVEC«244 


(ADDRESS OF 


000250 


MMVEC*250 


(AOORESS OF 




(REGISTER ADDRESSES 




177776 


PSW= 177776 


(ADDRESS OF 


177774 


SLR* 177774 


(AOORESS OF 


177772 


P IRQ* 177772 


(AOORESS OF 
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177770 

177546 

177560 

177562 

177564 

177566 

177572 

177570 

177570 

177514 

177516 



000500 

000600 



100000 

040000 

020000 

000400 

000100 



UBREAK* 177770 
LKSa 177546 
TKS* 177560 
TKB* 177562 
TPS* 177564 
TPBs 177566 
SR0* 177572 
SWR* 177570 
OISPlAYs177570 
LPS* 177514 
LPB* 177516 



(ADDRESS OF MICRO BREAK REGISTER 
(ADDRESS OF KW11-L STATUS REG, 
(ADDRESS OF KEYBOARD CSR 
(ADDRESS OF KEYBOARD BUFFER 
(ADDRESS OF TELEPRINTER CSR 
(ADDRESS OF TELEPRINTER BUFFER 
(ADQRESS OF MEM MGMT REGISTER SR0 
(ADDRESS OF CONSOL SWITCH REGISTER 
(ADDRESS OF CONSOL DISPLAY REGISTER 
IAQORESS OF LINE PRINTER SUTgs'REG 
(ADDRESS OF LINE PRINTER DATA DUFFER 



(INITIAL STACK POINTER SETTING 

STKPTR« 500 (PROGRAM STACK PTR 

KPTR=600 (KERNEL STACK PTR (USED BY KERNEL WHEN 

(PROGRAM IS RUNNING IN OTHER THAN KERNEL 
(MODE (NOT APPLICABLE TO 11/09,11/20) 



(MISCELLANEOUS BIT ASSIGNMENTS 
BIU5*100000 
B I T14»40000 
BIT13=20000 
8 1 TG = 400 
BIT6«100 



104400 

104000 



(INSTRUCTION EQUATES 

hlt*trap 

SCOPE*EMT 



(HLT IS A TRAP JNST to THE ERROR ROUTINE 
(SCOPE IS AN EMT TRAP 





000046 




.*46 




000046 


216542 




LOGICAL 






000052 




.*52 




000052 


040000 




BIT14 






000200 




. *200 




000200 


012707 


002066 


MOV 


#SURT,PC 


000204 


012707 


002160 


MOV 


»SURT1YPC 


000210 


012707 


002224 


MOV 


#STRRT3,PC 



(GO TO START OF T|ST 

(GO GET LOWER/UPPER RELOCATION BOUNDARY 

(START WITH LAST TYRED BOUNOARY LIMITS 



(ROUTINE TO SAVE REGISTERS ON THE SUCK 
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020214 

000220 

000222 

000224 

000226 

000230 

000232 

000234 

000236 



000240 

000244 

000246 

000250 

000252 

000254 

000256 

000260 

320262 



000610 

000616 



000620 

000626 

000632 

200634 

200636 

000642 

000644 

000650 

000652 

200656 

300664 

000672 



000740 

200746 

000750 



000754 

000756 
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000760 

000764 

@00766 

000770 



@00776 

<,01000 

@01002 

@01004 

@01006 

001010 

@01012 

001014 



@01016 

W01020 

001026 

001030 

001036 

001044 

001046 

001050 

@01054 

001062 

301070 

001072 

@01100 

301102 

001110 

301112 

301114 

@01116 

001120 

001126 

001130 



301132 

001140 

@01142 

001146 

001150 

001152 

001154 

001156 

301162 

001164 





ICALLED BY SAVE 


macro or jsr 


PCilSAVR 


012667 000016 


SSAVRi MOV 


<$P**,1J 


(SAVE RETURN PC 


010546 


MOV 


X5.-ISP) 


010446 


MOV 


%4.-<SP> 




010346 


MOV 


X3.-fSP> 




010246 


MOV 


X2.-(SP) 




010146 


MOV 


Xl.-(SP) 




010046 


MOV 


X0I-(SP> 




012707 


MOV 


(PC**. PE 


(RETURN 


000000 


IS i 0 




(CQNTAtNS RETURN ADDRESS 



(ROUTINE TO RESTORE REGISTERS SAVED ON THE STACK 









ICALLEO 


BY RESTORE MACRO OR JSR 


PC.SRESTR 




012667 


000016 




SRESTRI 


MOV 


(SP**.1| 


(SAVE RETURN PC 




012600 








MOV 


(SP**.X« 






012601 








MOV 


(SP**.X1 






012602 








MOV 


<sp**.xa 






012603 








MOV 


<SP**.X6 






012604 








MOV 


(SP**.X4 






012605 








MOV 


(SP**.X5 






012707 








MOV 


(PC**. PC 


(RETURN 




000D00 






1SI 


0 




(CONTAINS RETURN ADDRESS 




000610 








.4610 














1 POWER 


FAIL SUBROUTINE 






012737 


000620 


000024 


POWN! 


MOV 


PPUP.MRFVEC 






000000 








HALT 














(POWER 


UP subroutine 






012737 


000610 


000024 


pup: 


MOV 


#PDNN,»|PFVEC 


(RESTORE POWER FAIL TRAP TO POWER 
















(DOWN rouine ABOVE 




012706 


000600 






MOV. 


PKPTR.SR 


(SET STACK PTR 




005027 








CLR 


(PC** 






000000 






1SI 


.WORD 


0 


(KILL TIME 




005267 


177772 




2 S ( 


INC 


IS 






001375 








BNE 


2$ 






004767 


000362 






JSR 


PC. .PRINT 


(PRINT MESSAGE BiGINING AT FOLLOWING 


ADRS 


000656 








pfajl 








000137 


002066 






JMP 


•#START 


(RESTART TEST 




005015 


047520 


042527 


PFA I L ( 


■ ASCI 2 


<15X123 ' POWER FAILED ' <15><12> 




020122 


040506 


046111 












042105 


005015 


000 












000740 








, = 740 














(NOTE! 


THIS CODE 


: USED ONLT BY THE XOR TESTER. 










1 TO USE 


CODE PLACE 776 (BR ,-2) 


IN SCOPEA 




012737 


000002 


000006 


FORXORI 


MOV 


PRTI.MERRVEC+2 


(SET TIME OUT TRAP TO RETURN 




000261 








SEC 




(SET C 




005737 


177060 






TST 


•#177060 


(IF A TIME OUT OCCURS THEN WHEN NEXT 
















(INSTRUCTION IS EXECUTED <C WILL BE 


SET 














(AND IF NO TIME OUT «C* WILL B£ CLEARED 


103401 








3CS 


IS 


(BRANCH IF 'C' SET (TIMED OUT) 




011601 








MOV 


!SP*»R1 


(ADDRESS OF NEXT SUBTEST TO R1 





MACY11 


27(657) 


12-DEC- 


74 11(35 


1 PAGE 


1-3 




005037 


000006 




ISl 


CLR 


•#ERRVEC*2 


(1 


010116 








MOV 


Rl.tSP) 


; i 


000240 








NOP 






000002 








RTJ 




(1 


000776 








,=776 






000000 






TICKSI 


.WORD 


0 


(i 


001000 








,=1000 






000000 






ICNTl 


0 




(i 


000000 






SFJLLSl 


• WORD 


0 


li 


000000 






FACTORl 


0 - 




! , 
(1 








(SUBTRACT # IN 


FACTOR FROM PC 


TO 1 


000000 






REUR1I 


0 




II 


000000 






PRSTAO! 


.WORD 


0 


( 1 
(1 


000000 






FRSTMEMI 


.WORD 


0 


(1 


000751 








BR 


FORXOR 


(1 








(SCOPE (EMT) SERVICE ROUTINE 










(THIS ROUTINE 


allows the SUBTEST ' 








((OR NOT 


' ITERATED) BEFORE BEGINNJI 


000240 






SCOPEA 1 


NOP 






032766 


004000 


000002 




BIT 


#4000, 2(SP) 


(1 


001403 








BEG 


2S 


(1 


052737 


004000 


177776 




BIS 


#4000 , PfPSW 


(1 


032737 


040000 


177570 


2$ 1 


BIT 


#40000, »#SWR 


II 


001416 








BEO 


SCOPEC 




010116 






SCOPEBI 


MOV 


Rt,<SP) 


>1 


010137 


001006 






MOV 


Rl.MRELRl 




163737 


001004 


001006 




SUB 


•#F ACTOR, P#RELR1 


032737 


000400 


177570 




BIT 


#400»R#8WR 


II 


001403 








BED 


IS 




113737 


177570 


177770 




MOVB 


• #SWR , MUBREAK (1 


000002 






111 


RT1 




(1 


032737 


004000 


177570 


SCOPECI 


BIT 


#4000, MSWR 


(1 


001006 








BNE 


SCOREE 


(1 


005327 








DEC 


(PC** 


(1 


000040 






SCOPEDI 


40 




(i 


001353 








BNE 


SCOPEB 




012767 


000040 


177766 


SCOPEF) 


MOV 


#40,' SCOPED 


(1 


011601 






SCOPEEt 


MOV 


(SP».R1 


(l 


000746 








BR 


SCOPEB 










(ROUTINE TO RELOCATE PRQGRaM CODE 


032737 


010000 


177570 


RELOCI 


BIT 


#10000, »#SWR 


)l 


001031 








BNE 


3$ 


II 


013700 


001010 






MOV 


•#FRSTAP,R0 


(i 


010005 








MOV 


R0.R5 


(1 


010204 








MOV 


RJ i R4 


>i 


160504 








SUB 


R5.R4 


(1 


010203 








MOV 


R0.R3 


' II 


005737 


001004 






TST 


•#FACTOR 


II 


001004 








BNE 


10* 




010237 


001230 






MOV 


R2,P#RETPC 


(1 



(RETURN EITHER TO LAST OR NEXT SUBTEST 



(CONTAINS CLOCK TJCK COUNT 



GIT PC OF ORIGINAL CODE 



CONTAINS FIRST ADRS of CODE TO be MOVED 



TO BE CONTINUOUSLY LOOPED, ITERATED 



(LOAD RETURN ADDRESS 

(RELR1 CONTAINS UNRELOCATED RJ, 



(SAVE RETURN PC TO NEXT SECTION OF CODE 
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001170 


013702 


001012 






MOV 


•#FRSTM|M«R2 


ISEI FIRST AOQORESS 


201174 


060204 






10S : 


ADO 


R2,R4 


IR4 CONTAINS last memory address 

tTO fir norn 


001174 


020437 


002140 






CMP 


R4.PPLSTMEM 


» * w ofe w 3 fc, u 

(CHECK IF SUFFICIENT MEMORY REMAINS 


001202 


101011 








BHI 


«S 




001204 


012022 






ISt 


MOV 


( R0** , { R2 ) * 


(RELOCATE PROGRAM CODE 


001206 


020003 








CMP 


R0.R3 


(CHECK IF OQNC 


001210 


001375 








BNE 


IS 




001212 


024042 






2$ t 


CMP 


•<R0),.(R2> 


(CHECK THAT CODE WAS RELOCATED 


001214 


001401 








BEQ 


,♦4 


(PROPERLY 


001216 


104400 








HLT 




(ERROR) CODE NOT RELOCATED PROPERLY 


001220 


020005 








CMP 


R0,R5 


(CHECK IF FINISHED CHECKING 


001222 


001373 








BNE 


2$ 




001224 


010207 






3$ 1 


MOV 


R2.RC 


(GO EXECUTE RELOCATED CODE 


001226 


011707 






4SI 


MOV 


(PC*. PC 


(RETURN TO NEXT SECTION 0# CODE 


001230 


000000 






RETPCI 


0 




(CONTAINS PC OF NEXT SECTION OF CODE 










IROUTINE to print ascii message, 


, MESSAGE MUST TERMINATE WITH A 0 8YTE 


001232 


010046 






.PRINTl 


MOV 


R0 . - (5P) 


(SAVE R0 ON THE STACK 


001234 


017600 


000002 






MOV 


P2(SP),R0 


(GET MESSAGE ADDRESS 


001240 


062766 


000002 


000002 




ADO 


#2*2(SP) 


(ADJUST RETURN PC 


001246 


112046 






ISl 


MOVB 


(R0**,.<SP> 


(PUSH CHAR ON THE STACK 


001250 


001003 








BNE 


2$ 


(BRANCH JF NOT TERMINATOR 


001252 


003726 








TST 


(SP»* 


(POP TERMINATOR OFF THE STACK 


001254 


012600 








MOV 


(SP**.R0 


(RESTORE R0 


201256 


000207 








RTS 


PC 


(RETURN 


001260 


004767 


000026 




2$ 1 


JSR 


PC. 5$ 


(TYPE CHARACTER 


201264 


122726 


000012 




3$ 1 


CMP8 


#12. (SP>* 


(CHECK IF CHAR WAS A LINE FEED 


001270 


001366 








BNE 


IS 


(BRANCH IF NOT LINE FEED 


001272 


016746 


177504 






MOV 


SFILLS.-(SP) 


(GET # OF FILLERS REQUIREO AFTEN 
















(LINE FEED AND FILLER CHARACTER 


201276 


105366 


000001 




4S» 


DECB 


l(SP) 


(DECREMENT FILLERS COUNT 


201302 


002770 








BLT 


3$ 


(BRANCH IF NO MORE FILLERS NEEDED 


201304 


004767 


000002 






JSR 


PC. 5$ 


(TYPE FILLER CHARACTER 


001310 


000772 








BR 


4$ 




201312 


103737 


177564 




SSI 


TSTB 


##TPS 


(WAIT FOR OUTPUT DEVICE 


201316 


100375 








BPL 


, .4 


(TO BECOME READY 


201320 


116637 


000002 


177566 




MOVB 


Z(5R) »P|TPB 


(TYPE CHARACTER 


201326 


000207 








RTS 


PC 






000000 








NULL*0 







IROUTINE TO PLACE ASCII VALUE Of AN ADDRESS IN TO ADDRESS MESSAGE 
001330 SFORM0I 



001330 


004767 


176660 




JSR 


PC.SSAVR 


(GO SAVE REGISTERS ON THE STACK 


£01334 


012704 


001662 




MOV 


#DIGITS',R4 


(ADDRESS WHERE ASCII VALUES ARE STORED 


001340 


003003 






CLR 


R3 


(WORKING & INDEX REGISTER 


001342 


010201 






MOV 


R2.R1 


(SAVE 


001344 


006302 




IS 1 


ASL 


R2 


(FIRST DIGIT TO R3 


001346 


006103 






ROL 


R3 


001350 


012700 


000006 




MOV 


#6.R0 


(DIGIT COUNT 



FRONT END 
02QKCE.P11 


MACYli 


27(657) 


12-DEC-74 11139 PAGE 


1-5 




£01354 


000404 




BR 


3$ 


(PRINT FIRST DIGIT 


£01356 


006302 




2$! ASL 


R2 




£01360 


006103 




ROL 


R3 




001362 


005301 




DEC 


PI 




001364 


001374 




BNE 


2S 




801366 


012701 


000003 


3$ 1 MOV 


#3 . Ri 


(DIGIT SHIFT COUNT 


001372 


116324 


001652 


MOVB 


0 1 GTABI3 ) > { 4 ) ♦ 


(LOAD DIGIT INTO MESSAGE 


£01376 


005003 




CLR 


R3 


(CLEAR Index 


001400 


005300 




DEC 


R0 


(DEC DIGIT COUNT 


001402 


001365 




BNE 


2$ 


£01404 


004767 


176630 


JSR 


PC.SRESTR 


(RESTORE REGISTERS FROM STACK 


001410 


000207 




RTS 


PC 


(RETURN 



I ERROR SERVICE CALLED BY TRAP (HLT) INSTRUCTION 



001412 


005737 


177570 




ERROR! 


TST 


»#SWR 


(HALT ON ERROR? 






£01416 


100302 








BPL 


.*6 








001420 


000000 








HALT 




(ERROR Pc IS THE TOP WORD 






001422 


000002 








RT! 




(ON THE STACK 






001424 


032737 


020000 


177570 




BIT 


#20000, ®#SWR 


(PRINT OUT DESIRED? 






001432 


001373 








BNE 


1$ 


(BRANCH IF NO PRINTOUT 






001434 


011627 








MOV 


( SP* » (PE ) * 


(SAVE PC 






001436 


000000 






11$: 


.WORD 


0 


(CONTAINS SAVED PC 






001440 


316627 


000002 






MOV 


2 ( SP ) , ( PC ) + 


(GET STATUS ON TRAP 






001444 


000000 






12$: 


.WORD 


0 


(CONTAINS STATUS (PSW) AT 


TIME OF TRAP 


201446 


004767 


176542 






JSR 


PC . $SAVR 


(GO SAVE REGISTERS ON THE : 


STACK 




001452 


013702 


001000 






MOV 


•PISNT , R2 


(GET PASS COUNT 






001456 


004767 


177646 






JSR 


PC.SFORM0 


(GO TO FORMAT ROUTINE 






001462 


016767 


000176 


000212 




MOV 


DIGITS**, PASSES 


(LOAD ASCII VALUES 






J01470 


016767 


000172 


000206 




MOV 


DIGITS*#, PASSES 


♦8 






801476 


004767 


177530 






JSR 


PCi. PRINT 


(PRINT MESSAGE BEGINING AT 


following 


ADRS 


£01502 


001672 








PASCNT 










201504 


016702 


177726 






MOV 


US.R2 


(GET PC OF ERROR CALL 






201510 


005742 








TST 


*{ R2 ) 


(DECREMENT PC TO HLT 






001512 


004767 


177612 






JSR 


PC. SFQRM0 


(GO TO FORMAT ROUTINE 






021516 


004767 


177510 






JSR 


PC, .PRINT 


(PRINT MESSAGE BEGINING AT 


FOLLOWING 


APRS 


001522 


001707 








ERRPC 










001524 


004767 


177502 






JSR 


Pc», PRINT 


(PRINT MESSAGE BEGINING AT 


FOLLOWING 


ADRS 


201530 


001662 








DIGITS 










001532 


004767 


177474 






JSR 


PC. .PRINT 


(PRINT MESSAGE BEGINING AT 


FOLLOWING 


AQRS 


001536 


001714 








STATUS 










001540 


016702 


177700 






MOV 


12SVR2 


(GET STAUS AT TIME OF ERROR 




001544 


004767 


177560 






JSR 


PC.SFORM0 


(GO TO FORMAT ROUTINE 






301550 


004767 


177456 






JSR 


PC. .PRINT 


(PRINT MESSAGE BEGINING AT 


FOLLOWING 


ADRS 


001554 


001662 








DIGITS 










001556 


016702 


177654 






MOV 


USVR2 


(GET PC OF ERROR 






001562 


005742 








TST 


•{R2> 








001564 


005737 


001004 






TST 


ppfacto* 








001570 


001412 








BEG 


IBS 








001572 


163702 


001004 






SUB 


•#F ACTOR. R2 


(FORM PC OF ORIGINAL CODE 






001576 


004767 


177526 






JSR 


PC . SFORM0 


(GO TO FORMAT routine 






801602 


004767 


177424 






JSR 


PC. .PRINT 


(PRINT MESSAGE BEGINING AT 


FOLLOWING 


ADRS 


001606 


001721 








ERRPC0 










001610 


004767 


177416 






JSR 


p Ci .PRINT 


(PRINT MESSAGE BEGINING AT 


FOLLOWING 


ADRS 


001614 


001662 








DIGITS 












FRONT END 
OZQKCE.Pll 

001616 
001 414 
001622 
001630 
001632 
001636 
001640 
001644 
001646 
001650 



001652 

001654 

001656 

001660 

001662 

001670 

001672 

001674 

001702 

001707 

001714 

001721 

001726 

001734 

»01742 

001744 

001747 



001752 

301754 

001756 

001762 

001764 

001770 

001774 

002000 

302002 

002010 

302012 

302014 

002016 

002020 

302022 

302026 

302032 

302034 

(302040 



FRCTNT END 
DZQKCE.Pll 

302042 

002044 

002046 

002052 

002054 

002056 

002060 

002062 
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004767 


176416 


10$: 


JSR 


PC.SREStR 


(RESTORE REGISTERS FROM 


STACK 


032737 


002000 177570 


III 


BIT 


#J000 j P|SWR 


(RING BILL ON ERROR 


001403 

004767 


177374 




BED 

JSR 


2$ 

PC.. PRINT 


(PRINT MESSAGE BIGINING 


AT FOLLOWING APRS 


001747 

005737 


177570 


2S 1 


BELL 

TST 


»#SNR 


(HALT AFTER PRINT OUT 


100001 

000000 

000002 






BPL 

halt 

RTJ 


i*4 











I01GIT 


TABLE 






030460 






OIGTABI 


"01 






031462 








"2! 






032464 








"45 






033466 








"67 






030060 


030060 


030060 


DIGITS) 


.ASCIZ 


<000000 ' 




000040 














005015 






PASCNTI 


.ASCII 


<15X12* 




044440 


047103 


036524 




.ASCII 


< I gNT ** 




030060 


030060 


000 


PASSESI 


.ASCIZ 


'0000' 




040 


041520 


000075 


ERRPC ( 


• ASCII 


* PC*' 




051520 


036527 


000 


STATUSI 


• ASCIZ 


<PSW*' 




120 


020103 


042522 


ERRPC0I 


.ASCIZ 


'PC relocated 


FROM \ 


047514 


040503 


042524 










020104 


051106 


046517 










000040 














005015 


000 




SCRLFl 


• ASCIZ 


<15X12* 




007 


000 




BELL: 


• ASCIZ 


<7> 




001752 








.EVEN 












(ROUTINE TO GET 


TYPED OCTAL ADDRESS ANO CONVERT TO OCTAL, CALL! 








1 


JSR 


R5.RECD 










1 


• WORD 


0 


(CONVERTED DATA IS PLACED HERE 


010046 






RECO: 


MOV 


R0«-(SP> 


(SAVE R0 ON THE STACK 


005015 








CLR 


( R5i 


(CLEAR OLO DATA 


105737 


177560 




ISl 


TSTB 


P#TKS 


(WAIT FOR USER TO TYPE CHARACTER 


100375 








BPL 


1$ 




113700 


177562 






MOVB 


P#TKB i R0 


(GET CHARACTER 


042700 


000200 






BIC 


#200. R0 


(STRIP MSB 


122700 


000177 






CMPB 


#177, R0 


(CHECK IF RUBOUT 


001010 








BNE 


2$ 


(BRANCH IF NOT RUBOUT 


112737 


000134 


177566 




MOVB 


#<\ji*#TPB 


(TYPE S 


000241 








CLC 




(CLEAR CARRY 


006015 








ROR 


(R5* 


(SHIFT LAST TYPED CHARACTER 


006215 








ASS 


( R54 


(OUT OF DATA WORD 


006215 








asr 


t PS* 




000756 








BR 


IS 


(GO WAIT FOR NEXT CHARACTER 


110037 


177566 




SSI 


MOVB 


R0.MTPB 


(ECHO CHARACTER TYPED 


122700 


000015 






CMPB 


#15i’R0 


(CHECK IF CARRIAGE RETURN 


001005 








BNE 


3$ 


(BRANCH IF NOT CARRIAGE RETURN 


004767 


177172 






JSR 


PC. (PRINT 


(PRINT MESSAGE BEGINING AT FOLLOWING ADRS 


001744 








SCRIP 
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005725 

000205 

042700 177770 

006315 

006315 

006315 

050015 

000735 



TST 


(R5»* 


RTS 


R5 


BIC 


#177770 V R0 


ASL 


<R5* 


ASL 


<R5* 


ASL 


(R5* 


BIS 


R0.4R5) 


BR 


IS 


ATI 





( STEP RETURN ADDRESS 
(RETURN 

(STRJP NON-ESSENTIAL BITS 
(SHIFT LAST CHARACTER 3 PLACES 
(LIFT 

(AND INSERT NEW CHARACTER 
(WAIT FQR NEXT CHARACTER 



002064 000002 



IRETURN 




OZQKC-C BASIC U FAMILY INSTRUCTION EXER, 
OZGKCE.Pll 



MACYil 27(457) 12-DEC-74 UI39 PACE 2 



.TITLE OZQMC-C BASIC 11 FAMILY INSTRUCTION EXER, 



002046 


009037 


177776 




START! 


CLR 


002072 


005000 








clr 


302074 


005001 








CLR 


002076 


005002 








CLR 


002100 


005003 








CLP 


802102 


005004 








CLR 


002104 


005005 








CLR 


002106 


012706 


000600 






MOV 










(ROUTINE TO OE 


002112 


012737 


002132 


000004 




MOV 


802120 


005037 


000006 






CLR 


002124 


005000 








CLR 


£02126 


005720 








TST 


002130 


000776 








BR 


002132 


162700 


000002 




IS! 


SUB 


802136 


010027 








MOV 


002140 


000000 






LSTMEMI 


.WORD 


£02142 


162737 


004000 


002140 




SUB 


802150 


012737 


020000 


001012 




MOV 


002156 


000422 








BR 


802160 








STARTH 




002160 


004767 


177046 






JSR 


802164 


016576 








MSG1 


002166 


004567 


177560 






JSR 


002172 


000000 






1SI 


.WORD 


802174 


016737 


177772 


001012 




MOV 


802202 


004767 


177024 






JSR 


802206 


016613 








MSS2 


802210 


204567 


177536 






JSR 


002214 


000008 






2 S I 


.WORD 


802216 


016737 


177772 


002140 




MOV 


£02224 


005037 


001000 




START3I 


CLR 


002230 


012737 


080006 


000004 


START2I 


MOV 


802236 


012706 


000500 






MOV 


002242 


013737 


001000 


177570 




MOV 


802250 


012737 


001016 


000030 




MOV 


802256 


012737 


001412 


000034 




MOV 


802264 


012737 


000200 


000036 




MOV 










(0000000000000 


882272 


010700 






REL0! 


MOV 


802274 


005740 








TST 


002276 


010037 


001013 






MOV 


802302 


010700 








MOV 


002304 


162700 


002304 






SUB 


002310 


010037 


001004 






MOV 


002314 


010701 








MOV 










ICHECK 


BRANCH 


202316 


000257 








CCC 


002320 


103407 








BCS 



•#PSW 

R0 

Ri 

R2 

R3 

RA 

R3 

*KPTR.SR 



#l$y*#ERRVEC 

*#ERRVEE*Z 

R0 

<R04* 

.•2 

#2.R0 

R0.4PO* 



(KERNEL MODE 
(CLEAR R0-R9 



(SET kernel stack ptr 



(WILL time qutwhen end OF MEMORY 



R0*<PC>* (SET VALUE Into LSTMEM 

0 (CONTAINS VALUE OF LAST MEMORY ADDRESS 

#4000 > 4SLSTMEM (SET PROTECTION FOR LOADERS 
#20000,»#FRSTMEM)SET lower BOUNDARY AT 20000 
STARTS (CO TO START 3 



R5.REC0 

0 

1S.*#FRSTMEM 

PC.*PRJNT 

R5.RECO 

0 

2Si*#LSTMEm 



(PRINT MESSAGE BIGINING AT FOLLOWING ADRS 

(GET LOWER LIMIT 
(CONTAINS TYPED LOWER LIMIT 
(SET IN LOWER LIMIT 

(PRINT MESSAGE BIGINING AT FOLLOWING AORS 

(GET UPPER LIMIT 
(CONTAINS UPPER LIMIT 



P# I ENT (CLEAR PASS COUNT 

#ERRVEC*2.»#ERRVEC (SET ERROR TRAP TO HALT AT 6 

#STKPTR',SP (SET STACK PTR 

•#ICNT,P#DISPLAY(DISPLAY PASS COUNT 
#SCOPEA«P#EMTVEC(SEt EMT(SCOPE) TRAP VECTOR 
#ERROR,##TRAPVEC ( SET TRAP ! HLT ) VECTOR 

#Z00,P#TRAPVEC*Z (PRIORITY LEVEL 4 ON TRAP 



PC.R0 (GET PC 

“(R0) IR0 CONTAINS THE ADDRESS OF RELB 

R0.P#FRSTAD (SAVE 

PC.R0 (GET CURRENT PC 

#..R0 (SUBTRACT RELOCATION FACTOR 

R0 1 P#F A6T0R (SAVE RELOCATION FACTOR 

PC.R1 (SET NEW SCOPE PTR 

VSTRUCTIONS 

»cc's=0000 

CC0 (SAME AS BLO 



OZQKC-C BASIC 11 FAMILY 


INSTRUCTION EXER, 


MACYil 


27(657) 


OZGKCE.PU 








002322 


102406 




BVS 


CC0 


802324 


001405 




BES 


CC0 


802326 


100404 




BM I 


CC0 


802330 


002403 




BLT 


CC0 


002332 


003402 




BLE 


CC0 


002334 


101401 




BIOS 


CC0 


202336 


101001 




8HI 


, *4 


002340 


104400 


CCC ( 


HIT 








(CONTINUE 




802342 


000270 




SEN 




802344 


100803 




BPl 


CC1 


002346 


002002 




BGE 


eel 


002350 


003001 




BGT 


CC1 


802352 


802401 




BLT 


.*4 


802354 


104400 


CC1S 


HLT 








(CONTINUE 




802356 


000262 




SEV 




802360 


102003 




BVC 


CC2 


802362 


002402 




BLT 


CC2 


002364 


003401 




BLE 


CC2 


002366 


002001 




BGC 


.*4 


802370 


104400 


CC2! 


HLT 








ICONTINUE 




802372 


000261 




SEC 




002374 


103802 




BCC 


CCS 


802376 


101001 




SHI 


CCS 


802400 


003001 




8GT 


.*4 


802402 


104400 


CCS! 


HLT 








ICONTINUE 




802404 


000264 




SEZ 




802406 


001003 




BNE 


CC4 


002410 


003002 




BGT 


CC4 


802412 


101001 




BHJ 


CC4 


802414 


003401 




BLE 


>*4 


802416 


104400 


CC4 ! 


HLT 




002420 


104000 




SCOPE 








(TEST 


UNARY CONDITION 






(CLR 


R0 




802422 


000277 




SCC 




002424 


000244 




CL! 




802426 


005000 




CLR 


R0 


802430 


103404 




BCS 


CLR0 


002432 


102403 




BVS 


CLR0 


802434 


001002 




BNE 


CLR0 


802436 


100401 




BMI 


CL«0 


002440 


003401 




BLE 


.*4 


002442 


104400 


CLR0I 


HLT 





(ONE OF THE ABOVE BRANCHES FAILED 



(ONE OF THE ABOVE BRANCHES FAILED 



(ERROR! ONE OF THE ABOVE BRANCHES FAILED 



( ERROR I ONE OF THE ABOVE BRANCHES FAILED 



(ERROR! ONE OF THE ABOVE BRANCHES FAJLEO 



(R0«0,CC'S»0100 



(ERROR! INCORRECT CCS AFTER CL? 



082444 000277 



SCC 




OZQKC-C BASIC a family 
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MACYU 
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002444 


000244 




CLB 








202490 


005700 




TST 


R0 


)R0«0*CC'S*0100 




202492 


103404 




8CS 


TST0 




202494 


102403 




8VS 


T$T0 






002494 


001002 




BNE 


TST0 






202440 


100401 




SHI 


TST0 






202462 


101401 




8L0S 


,♦4 






202464 


104400 


TST0I 


HIT 




I ERROR 1 INCORRECT CCS AFTER 


TST 


202466 


000257 




CCC 








002470 


000266 




-SEZ 1 SEV 






002472 


005100 




COM 


R0 


1 R01-1 i CC ' S*1001 




202474 


103004 




see 


COH0 




202476 


102403 




BVS 


COH0 






202900 


001402 




BEG 


COM0 






202902 


100001 




BPl 


COM0 






002904 


002401 




BIT 


i *4 






002906 


104400 


COM0I 


HIT 




JERRORI INCORRECT CC'S AFTER 


COM 


002910 


000261 




SEC 








002912 


005500 




ADC 


R0 


fR0*000000,CC'S*0101 




002914 


103003 




sec 


ADC0 




202916 


102402 




BVS 


AQC0 






002920 


001001 




BNE 


ADC0 






002922 


002001 




BCE 


* +4 






002924 


104400 


AOC0! 


HUT 




JERRORI INCORRECT CC'S AFTER 


ADC 


202926 


000261 




SEC 








202930 


006000 




ROR 


R0 


JR0tl00000iCC'S»1010 




002932 


103404 




BCS 


RQR0 




202534 


102003 




BVC 


RqR0 






002536 


001402 




SEQ 


RqR0 






002540 


100001 




BPL 


ROR0 






002542 


003001 




BGT 


t + 4 






002544 


104400 


ROR01 


HIT 




JERRORI INCORRECT CC'S AFTER 


ROR 


002546 


000277 




see 








202550 


000242 




CLV 








002552 


009300 




DEC 


R0 


|R0*077777* CC'S* 0011 




002994 


103004 




BCC 


OEC0 




002556 


102003 




8VC 


OEC0 






002560 


001402 




BED 


DEC0 






002562 


100401 




SMI 


OEC0 






202564 


003401 




BLE 


i*4 






002566 


104400 


DEC0I 


HLT 




JERRORI INCORRECT CCS AFTER 


DEC 


002570 


000257 




CCC 








002572 


005200 




INC 


R0 


JR0»t00000i CCS *1010 




002574 


103404 




BCS 


INC0 






002576 


102003 




BVC 


INC0 






202600 


001402 




BEQ 


INC0 






S502602 


100001 




BPl 


I NC0 






002604 


003001 




BGT 


,♦4 






202606 


104400 


INC0 ! 


HLT 




JERRORI INCORRECT CCS AFTER 


INC 
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002610 


000277 




see 










002612 


000242 




CLV 










002614 


005400 




NEG 


R0 


JR0*100000iCCS*10U 






002616 


103003 




BCC 


N£G0 






002620 


102002 




BVC 


NEG0 








002622 


001401 




BEG 


NEO0 








002624 


002001 




BGE 


, *4 








002626 


104400 


NEG0I 


HLT 




JERRORI INCORRECT CC'S 


AFTER 


NEG 


002630 


000261 




SEC 










002632 


006300 




ASL 


R0 


!R0*000000iCCS*01U 






002634 


103004 




BCC 


ASL0 






002636 


102003 




BVC 


ASL0 








002640 


001002 




BNE 


ASL0 








002642 


100401 




BMJ 


ASL0 








002644 


101401 




BLOS 


,♦4 








002646 


104400 


ASL0I 


HLT 




JERRORI INCORRECT CC'S 


AFTER 


ASL 


O02650 


006100 




ROL 


R0 


JR0*000001,CC'S-0000 






002652 


103402 




BCS 


ROL0 








002654 


003401 




BLE 


ROL0 








002656 


002801 




BGE 


,*4 








002660 


104400 


ROL0 ( 


HLT 




JERRORI INCORRECT CCS 


AFTER 


ROL 


002662 


006200 




ASR 


R0 


>R0*000000,CC'S»01U 






002664 


103003 




BCC 


ASR0 








002666 


102002 




BVC 


ASR0 








002670 


001001 




BNE 


ASR0 








002672 


002401 




BLT 


, *4 








002674 


104400 


ASR0 1 


HLT 




JERRORI INCORRECT CC'S 


AFTER 


ASR 


002676 


000277 




see 










002700 


005600 




SBC 


R0 


JR0»-1,CC'S*1001 






002702 


103002 




BCC 


SBC0 






002704 


102401 




8VS 


S8C0 








002706 


003401 




BLE 


■ *4 








002710 


104400 


SBC0 J 


HLT 




JERRORI INCORRECT CCS 


AFTER 


SBC 


002712 


005400 




NEG 


R 0 


)R0»000001, CC 1 S *00001 






002714 


000300 




SWAB 


R0 


JR01000400 ,CC$*0100 






002716 


103403 




BCS 


SWAB0 






002720 


102402 




BVS 


SWAB0 








002722 


001001 




BNE 


SNAB0 








002724 


002001 




BGE 


, *4 








002726 


104400 


SWAB0 | 


HLT 




JERRORI INCORRECT CCS 


AFTER 


SWAB 


002730 


104000 




SCOPE 














1 CHECK 


REGISTER 


selection 








002732 


005000 




CLR 


R0 








002734 


000277 




see 










082736 


006100 




ROL 


R0 


JR0«1 






002740 


010002 




MOV 


R0iR2 








002742 


006302 




ASL 


R2 


JR2»2 






002744 


010203 




MOV 


R2iR9 
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002746 


006303 




ASL 


R3 


l R3f 4 


002750 


010304 




MOV 


R3»R4 




002752 


006304 




ASL 


R4 


) R4*10 


002754 


010405 




MOV 


R4,R5 




002756 


006305 




ASL 


R5 


) R5»20 


002760 


010546 




MOV 


R5,-(SP) 


(SET BITS SET IN REGISTERS 


002762 


050416 




SIS 


R4,4SF) 


(INTO STACK ADDRESS 


002764 


050316 




BIS 


R3.1SP) 




002766 


050216 




BIS 


RJ ,<-SP) 




002770 


050016 




BIS 


R0,<SP) 




002772 


022726 


000037 


CMP 


#3TV(SP>4 




002776 


001401 




BEO 


, *4 


(WERE SET 


003000 


104400 




HLT 




(MISSING BIT(S) REPRESENT 












(INCORRECT REGISTER SELECTION 






(CHECK 


THAT ALL 


BITS CAN BE 


SET < CLEARED IN ALL REGISTERS 


003002 


000257 




CCC 






003004 


112700 


000377 


MOVB 


«377,R0 


(SET ALL BITS (MOVB EXTENDS SIGN) 


003010 


006100 


IS 1 


ROl 


R0 


(ROTATE A 0 THROUGH ALL BIT 


003012 


103776 




BCS 


IS 


(POSITIONS 


003014 


005200 




INC 


R0 


(FINAL RESULT IS -1 


003016 


001401 




BED 


,»4 




003020 


104400 




HLT 




1 ERROR I 


003022 


012700 


000020 


MOV 


*16»,R0 


(SET SHIFT COUNT 


003026 


005002 




CLR 


R2 




003030 


000261 


2Si 


SEC 






003032 


006002 




ROR 


R2 


(ROTATE 1 THROUGH ALL BIT POSJT5 


003034 


005300 




DEC 


R0 


(DECREMENT SHIFT COUNT 


003036 


001374 




BNE 


2$ 




003040 


005102 




COM 


R2 


(R? SHOULD CONTAIN -1 


003042 


001401 




BEO 


.*4 




003044 


104400 




HLT 




(ERROR! CHECK R2 SHOULD * 0 


003046 


012703 


100000 


MOV 


#100000, R3 




003052 


006203 


3$( 


ASR 


R3 


(EXTEND 1 BIT THROUGH ALL POSITIONS 


003054 


103376 




BOO 


3$ 




003056 


005203 




INC 


R3 




£03060 


001401 




BEQ 


,+4 




003062 


104400 




HLT 




(ERROR! 


003064 


112704 


177401 


MOVB 


#177401, R4 


(R4*l 


£03070 


060404 


4$ 1 


ADO 


R4,R4 


(HAS THE AFFECT OF SHIFTING A SIT 


003072 


103376 




BCC 


4$ 


(THROUGH ALL POSITIONS 


003074 


005704 




TST 


R4 


(RESULT SHOULD BE 0 


£03076 


001401 




BEO 


, *4 




U03100 


104400 




HIT 






003102 


012705 


000001 


MOV 


#1,R5 




003106 


006305 


5S t 


ASL 


R5 




003110 


102376 




BVC 


5$ 




003112 


006305 




ASL 


R5 




*03114 


103002 




BCC 


6S 




<303116 


005705 




TST 


R5 
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003120 


001401 




BEO 


,.4 




£03122 


104400 


6$ t 


HLT 










ICHECK 


REGISTER 


VOL1TILITY 




003124 


005002 




CLR 


R2 




003126 


005102 




COM 


R2 


)R2*-1 


003130 


010203 




MOV 


R2,R3 




003132 


000257 




CCC 






*03134 


006002 




ROR 


R2 


)R2*LOOP COUNT 


203136 


006202 




ASR 


R2 




003140 


010304 


7$ l 


MOV 


R3,R4 




003142 


005302 




DEC 


R2 


(DECREMENT LOOP COUNT 


003144 


001375 




BNE 


71 




003146 


005203 




INC 


R3 


(CHECK R3 


*■03150 


001302 




BNE 


as 




203152 


005204 




INC 


R4 


(CHECK R4 


003154 


001401 




BEO 


, »4 




003156 


104400 


as i 


HLT 















(CHECK 


TRANSFER 


OF register 


*03160 


032737 


000020 


177776 


GSTST ( 


BIT 


#20,*#PSH 


003166 


001052 








BNE 


7$ 


*03170 


010146 








MOV 


Rl.-(SP) 


003172 


010627 








MOV 


SP, (PC)* 


*03174 


000300 






IS) 


• WORD 


0 


003176 


010727 








MOV 


PC, IPO* 


003200 


000000 






2$ 1 


.WORD 


0 


L03202 


005267 


177772 






INC 


2$ 


003206 


016700 


177766 




SSI 


MOV 


25, R0 


003212 


010001 








MOV 


R0.R1 


003214 


010102 








MOV 


Rl,R2 


003216 


010203 








MOV 


R2,R3 


*03220 


010304 








MOV 


R3.R4 


*03222 


010405 








MOV 


R4.R5 


003224 


152737 


000340 


177776 




B! SB 


#340 , pPRSW 


003232 


010506 








MOV 


R5,SP 


S03234 


010627 








MOV 


SP.4PC)* 


203236 


000000 






4SI 


.WORD 


0 


003240 


016706 


177730 






MOV 


1S.SP 


*03244 


142737 


000340 


177776 




BICB 


#340,»#PSW 


003252 


026700 


177760 






CMP 


4$ , R0 


003256 


001004 








BNE 


5$ 


003260 


006367 


177714 






ASL 


2$ 


003264 


001350 








BNE 


3$ 


*03266 


000411 








BR 


6$ 


303270 


010046 






5S I 


MOV 


R0,-(SP> 


003272 


010146 








MOV 


Rl,-(SP> 


003274 


0102*6 








MOV 


R2,-(SP) 


333276 


010346 








MOV 


R J , • ( SP4 


003300 


010446 








MOV 


R4,-(SP> 


003302 


010546 








MOV 


R5,-<SP> 


*03304 


104400 








HIT 





DATA BETWEEN THE GS AND GD REGISTERS (11/45) 
(CHECK IP 'T* BIT IS SET 
(SKIP TEST IP * T ’ BIT SET 
(SAVE SCOPE PTR 
(SAVE STACK PTR 
(CONTAINS SAVEO STACK PTR 
(LOAD DATA, THE CURRENT PC JS USED AS 
(DATA. IP THIS TEST FAILS 2S CON. 

(TAINS THE DATA BEING USED, 

(MAKE ODO TO CHECK BIT 0 
(LOAD GO REGISTER 0 
(TRANSFER GS REG 0 TO GO REG l 
IANO GS REG 1 TO GD REG 2 
(ETC,., 



(SET PRIORITY LEVEL 7 

(TRANSFER GS REG 5 TO CO STK PTR 

(TRANSFER GS STK PTR TO MEMORY 

(CONTAINS GS STACK PTR 

(RESTORE STK PTR NEEDED FOR HLT/SCOPE 

(SET PRIORITY LEVEL 0 

(COMPARE GS/GD STKPTR WITH GS REG 0 

(BRANCH IF THEY WERE NOT * 

(SHIFT TEST DATA UNTIL » 000000 



(GET GS REG 0 
(ETC,.. 



(ERROR I DATA IN OS STK PTR NOT « GS REG 
(GS REG 0-GS REG 5 ARE ON THE'STaCK 
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003306 


016706 177662 




MOV 


1S.SP 


(RESTORE STACK PTR 




203312 


012601 


61 1 


MOV 


< SP4** Rl 


(RESTORE SCOPE PTR 




003314 


104000 


7SI 


SCOPE 








1 TEST 


UNARY WORD INSTRUCTIONS 


USING ADDRESS MODE 1 




203316 


000401 




BR 


i«4 




003320 


000000 




.WORD 


0 


(RESERVE ADDRESS FOR TESTS 




003322 


010702 




MOV 


PC»R2 




203324 


162702 000004 




SUB 


#4.R2 


(R? POINTS TO RESERVED WORD 




203330 


005012 




CLR 


<R26 


(PRESET (R2) 




203332 


000261 




SEC 








003334 


006012 




ROR 


(R24 


) (R2) =100000. CC«1010 




003336 


101402 




BIOS 


RORl 




003340 


100001 




BPL 


ROR1 






003342 


002001 




BGE 


.-4 






003344 


104400 


RORlt 


HLT 




(ERROR) INCORRECT CC'S AS SHOWN 


ABOVE 


203346 


000297 




CCC 








003350 


000261 




SEC 








203352 


005312 




DEC 


(R2A 


( (R2>=077777,CC#00U 




003354 


103001 




BCC 


DEC1 




203356 


003401 




Bit 


.-4 






003360 


104400 


OEC1 : 


HLT 




(ERROR! INCORRECT CC'S AS SHOWN 


ABOVE 


203362 


000297 




CCC 








203364 


000261 




SEC 








003366 


005512 




ADC 


(R2* 


( (R2) =100000. CC» 1010 




003370 


103403 




BCS 


ADC1 




003372 


102002 




BVC 


A0C1 






003374 


100001 




BPL 


ADC1 






003376 


001001 




BNE 


.*4 






003400 


104400 


AOC1S 


HLT 




(ERROR! INCORRECT CC'S AS SHOWN 


ABOVE 


203402 


006112 




ROL 


(R2A 


( (R2)*000000,CC*01H 




003404 


103003 




BCC 


ROL1 






203406 


102002 




BVC 


ROL1 






203410 


001001 




BNE 


ROL1 






003412 


100001 




BPL 


.*4 






003414 


104400 


ROllI 


HLT 




(ERROR! INCORRECT CCS AS SHOWN 


ABOVE 


203416 


006112 




ROL 


< R2A 


( ( R2 ) =000001 . CC»0000 




003420 


101402 




BLOS 


ROL1A 


(BRANCH IF C OR 2 IS SET 




203422 


102401 




BVS 


ROL1A 




003424 


100001 




BPL 


,*4 






203426 


104400 


ROllAl 


HLT 








203430 


006212 




ASR 


<R2» 


( (R2) =000000 > CC=0111 




003432 


103003 




BCC 


ASR1 




003434 


102002 




BVC 


ASR1 






203436 


001001 




BNE 


ASRl 






203440 


100001 




BPL 


.-4 






203442 


104400 


ASR1! 


HLT 




(ERROR! INCORRECT CC'S AS SHOWN 


ABOVE 
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003444 


006012 




ROR 


( R 2 # 


MR2J*100000,CC«1010 








003446 


103403 




BCS 


ROR1A 










003450 


102002 




BVC 


RORJA 










003452 


001401 




BEG 


ROR1A 










003454 


100401 




BM! 


, *4 










003456 


104400 


RORlAi 


HLT 












003460 


000261 




SEC 












003462 


005212 




INC 


( R2A 


( (R2)= 100001 (CC*1001 








003464 


103003 




BCC 


I NCI 








003466 


102402 




BVS 


INC! 










003470 


001401 




BED 


JNC1 










003472 


100401 




BM J 


i-4 










003474 


104400 


INCK 


HLT 




(ERROR! INCORRECT CC'S 


AS 


SHOWN 


ABOVE 


003476 


005612 




SBC 


(R2A 


( (R2)=100000,CC»1000 








003500 


103403 




BCS 


SBC1 








003502 


102402 




BVS 


SBC! 










003504 


001401 




BEO 


sgci 










003506 


100401 




BM I 


.*4 










003510 


104400 


SBC1I 


HLT 




(ERROR! INCORRECT CC’S 


AS 


SHOWN 


ABOVE 


003512 


000261 




SEC 












003514 


005612 




SBC 


(R2) 


( (R2) =077777. CC*0010 








003516 


103403 




BCS 


SBC1A 








003520 


102002 




BVC 


SBC1A 










003522 


001401 




BEO 


SBC1A 










003524 


130001 




BPL 


.*4 










003526 


104400 


SBClAt 


HLT 




(ERROR! INCORRECT CC'S 


AS 


5HQEN 


ABOVE 


003530 


000261 




SEC 












003532 


005512 




ADC 


( R2A 


i (R2(=100000,CC»1010 








003534 


100401 




BM! 


. *4 








003536 


104400 




HLT 












003540 


000261 




SEC 












003542 


006312 




ASL 


< R2* 


( (R2( =000000.00=0111 








003544 


103003 




BCC 


ASL! 








003546 


102002 




BVC 


ASL1 










003550 


001001 




BNE 


ASL1 










003552 


100001 




8PL 


.*4 










003554 


104400 


ASL1( 


HLT 




(ERROR! INCORRECT CC’S 


AS 


SHOWN 


ABOVE 


003556 


005112 




COM 


(R2A 


((R2?»177777.CC=1001 








003560 


103002 




BCC 


COM1 








003562 


102401 




BVS 


C0M1 










003564 


100401 




BMI 


t*4 










003566 


104400 


COMlI 


HLT 




) ERROR I INCORRECT CC'S 


AS 


SHOWN 


ABOVE 


003570 


000250 




CLN 












003572 


005712 




TST 


( R2* 


(<R2)*177777,CC«1000 








003574 


103403 




BCS 


TST1 








003576 


102402 




BVS 


T$T1 










003600 


100001 




BPL 


T$T1 
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£03602 


001001 




BNE 


t*4 




£03604 


104400 


TST1 1 


hlt 




; ERROR I INCORRECT CCS AS SHOWN ABOVE 


£03606 


000262 




SEV 






£03610 


005412 




NEC 


<R2* 


! (R2)*00000i,C C»0000 


003612 


103002 




BCC 


NEG1 


£03614 


102401 




BVS 


NEC1 




003616 


001001 




BNE 


i*4 




003620 


104400 


NEGli 


HLT 




1 ERROR I INCORRECT CCS AS SHOWN ABOVE 


003622 


005312 




DEC 


( R2t 


( (R2)*008000,CC«0101 


003624 


103001 




BCC 


0EC1A 


003626 


001401 




BEO 


■ *4 




003630 


104400 


OEClAl 


HIT 




{ERROR 1 INCORRECT CCS AS SHOWN ABOVE 


003632 


104000 




SCOPE 








ICHECK 


UNARY 


BYTE INSTRUCTIONS 


USING ADDRESS MODI 1 


£03634 


000401 




BR 


i*4 


(RESERVE A WORO 


£03636 


000000 




.WORD 


0 


(AOORESS RESERVED FOR T|STS 


U03640 


010703 




MOV 


PC*R3 


003642 


162703 000004 




SUB 


#4,R3 


)R3 POINTS TO EVEN BYTE OF WORO 


£03646 


010304 




MOV 


R3i R4 


) R4 POINTS TO ODD BYTE OF WORD 


£03650 


005204 




INC 


R4 


003652 


005013 




CL» 


I R3A 


(PRESET DATA 


£03654 


000261 


111 


SEC 






£03656 


105513 




ADCB 


(R3A 


(ADO CARRY TO EVEN BYTE 


003660 


100402 




BMI 


2$ 


(UNTIL EVEN BYTE BECOMES NEGATIVE 


003662 


105214 




I NCB 


(R4* 


(INCREMENT ODD BYTE 


£03664 


000773 




BR 


1$ 


*03666 


102401 


2 S 1 


BVS 


i *4 


( (R3) -077600- C0774 3 [2083, CC»101? 


£03670 


104400 




HLT . 




£03672 


800242 




CLV 






£03674 


105214 




INCB 


( R4A 


( <R3 1=100200- [ 10003 [2003,00*101? 


£03676 


103402 




BCS 


5NCB1 


*03700 


102001 




BVC 


INCB1 




£03702 


100401 




BMI 


i *4 




£03704 


104400 


INCB1I 


HIT 




{ ERROR I INCORRECT CCS AS SHOWN ABOVE 


£03706 


106114 




rolb 


<R4* 


1 <R3> =000200 = [0000 3 [200 3, CC-0U1 


003710 


103002 




BCC 


R0LB1 


£03712 


102001 




BVC 


R0LB1 




003714 


0014B1 




BEO 


.*4 




003716 


104400 


ROLBli 


HLT 




1 ERROR I INCORRECT CCS AS SHOWN ABOVE 


003720 


105614 




SBCB 


(R4* 


( (R3 1*177600 = [1774 3 [200 3, CCH001 


003722 


103002 




BCC 


SBCB1 


003724 


102481 




BVS 


SBCB1 




003726 


100401 




BMI 


.*4 




003730 


104400 


SBCBll 


HLT 




; ERROR | INCORRECT CCS AS SHOWN ABOVE 


003732 


106313 




aslb 


( R34 


MR3)*177400,CCs0U1 


£03734 


103002 




BCC 


ASLB1 




003736 


102001 




BVC 


ASLB1 
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£03740 


201401 




BEO 


, *4 










£03742 


104400 


ASLB1S 


HLT 




(ERROR I INCORRECT CCS 


AS 


SHOWN 


ABOVE 


003744 


105413 




NEGB 


( R3A 


I (R3)*177400,CCf0100 








003746 


103402 




BCS 


negbi 










£03750 


102401 




BVS 


negbi 










£03752 


001401 




BEO 


• *4 










£03754 


104400 


NEGBlt 


HLT 




(ERROR! INCORRECT CCS 


AS 


SHOWN 


ABOVE 


203756 


000277 




see 












£03760 


105313 




DECS 


(R3A 


1 <R3)=177777.CC«1001 








203762 


103202 




BCC 


DECB1 










003764 


102401 




BVS 


DECB1 










203766 


201001 




BNE 


i*4 










003770 


124400 


DECB1I 


hlt 




( ERROR 1 INCORRECT CCS 


AS 


SHOWN 


ABOVE 


£03772 


000241 




CLC 












£03774 


106013 




RORB 


(R31 


I ( R4) *177577, CC*22 11 








£03776 


103002 




BCC 


R0R81 










£24000 


102001 




BVC 


RORB! 










£04002 


100001 




BPL 


«*4 










£04004 


104400 


R0RB1I 


HLT 




(ERROR! INCORRECT CCS 


AS 


SHOWN 


ABOVE 


£04006 


200241 




CLC 












804010 


105114 




COHB 


(R4* 


1 <R4)*000177,CC«0101 








£04012 


103002 




BCC 


COMBI 










£04014 


102401 




BVS 


COMBI 










004016 


201401 




BEO 


,*4 










£04020 


104400 


COHBl! 


HLT 




( ERROR 1 INCORRECT CCS 


AS 


SHOWN 


ABOVE 


£04022 


106213 


IS) 


ASRB 


(R3J 


(SHIFT EVEN BYTE UNTIL 


V 


CLEARS 




£04024 


102202 




BVC 


2* 










£04026 


105514 




ADCB 


t R4A 


(AND ADO CARRY TO 000 1 


BYTE 




£04030 


000774 




BR 


IS 










£04032 


103401 


2SI 


BCS 


ASRB1 










£04034 


001401 




BEO 


.*4 










204036 


104400 


ASRBll 


hlt 




(ERROR! INCORRECT CCS 


AS 


SHOWN 


ABOVE 


£04040 


106214 




ASRB 


(R4A 










£04042 


106214 




ASRB 


<R4» 


( (R3) *000400, CC» 0011 








£04044 


103002 




BCC 


ASRB1A 










004046 


102001 




BVC 


ASRB1A 










004050 


001001 




BNE 


, *4 










204052 


104400 


ASRB1AI 


HLT 




(ERRORI INCORRECT CCS 


AS 


SHOWN 


ABOVE 


204054 


105314 




OECB 


<R4* 


((R3)*000000.CCi0100 








204056 


001401 




BEO 


■ *4 










204060 


104400 




hlt 




(ERRORI INCORRECT CCS 


AS 


5HQWN 


CD 

O 

n 


204062 


000261 




SEC 












204064 


106014 




RORB 


<R4» 


( ( R3 )* 100000. CC»1010 








004066 


103402 




BCS 


R0R81A 










204070 


102001 




BVC 


RQRB1A 










204072 


100401 




BHI 


i *4 
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224074 


104402 


RORB1AI HLT 




! ERROR | INCORRECT CC'S AS SHOWN ABOVE 


224076 


000242 


CLV 






204102 


105314 


DECS 


(R4* 


1 (R$)*077400,CC*0100 


304102 


102401 


BVS 


,♦4 


204104 


104402 


HLT 






204106 


000261 


SEC 






004110 


105313 


DECS 


<R3* 


1 (R3)*077777.CC*1001 


004112 


103002 


BCC 


decbia 


204114 


102401 


BVS 


decbia 




004116 


120401 


BMI 


i *4 




004120 


124400 


DECB1AI HLT 




(ERROR! INCORRECT CC’S AS SHOWN ABOVE 


204122 


000277 


see 






004124 


020313 


SWAB 


IRS* 


! (R3J*177577*C1774K177 J,CCi»8000 


204126 


123402 


BCS 


SWAB1 


204130 


102401 


BVS 


SWAB! 




024132 


100001 


BPL 


,*4 




004134 


104400 


SWAB1I HIT 




) ERROR ! INCORRECT CC'S AS SHOWN ABOVE 


204136 


105714 


TSTB 


(R4* 


i (R3Jsl77577»C1774K177 3 ,CC*100? 


004140 


103402 


BCS 


tstbi 


004142 


102401 


BVS 


TSTB1 




204144 


100401 


BMI 


.*4 




204146 


104402 


TSTBll HLT 




) ERROR 1 INCORRECT CC'S AS SHOWN ABOVE 


224150 


105014 


CLRB 


CR4* 


1 I RJJ *000177 = [0000 ) [177 3,00*010? 


004152 


021401 


BEO 


■ *4 


224154 


104400 


HLT 






004156 


126313 


ASLB 


(R3* 


) ( R3) *000376 ,00*1010 


004162 


123402 


BCS 


ASLB1A 


204162 


102001 


BVC 


aslbia 




204164 


100401 


BMI 


, +4 




204166 


104402 


ASIB1AI HLT 




) ERROR I INCORRECT CC'S AS SHOWN ABOVE 


004170 


125113 


COMB 


IRS* 


) (RJ>*000001,CC«0001 


204172 


103002 


see 


COMB1A 




004174 


102401 


BVS 


COMB1A 




004176 


100001 


BPL 


, *4 




204200 


104400 


COMB1AI HLT 




) ERROR ! INCORRECT CC'S AS SHOWN ABOVE 


304202 


000313 


SWAB 


(R3* 


! <R3)*000400, CCP0100 


204204 


001401 


BEO 


i*4 


204206 


104400 


HLT 






004212 


105213 


INCB 


I R3* 




304212 


000261 


SEC 






204214 


105613 


SBCB 


(R3* 


(I R3)=000400,CC*0100 


004216 


021401 


BEO 


t *4 


304220 


104400 


HLT 






004222 


022713 000400 


CMP 


#420» <R3) 


> CHECK REMAINING RESULT 


004226 


001401 


BEO 


, +4 




004230 


124400 


HLT 
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DZOKCE.Pli 

024232 124202 SCOPE 



ICHECK UNARY WORD OPS USING ADDRESS MOOES 2 AND 4 (AUTO INC/QEC) 



004234 


020401 




BR 


i*4 








004236 


000000 




■ WORD 


0 


JAOQRESS RESERVED FOR 


TESTS 


004240 


010704 




MOV 


PC*R* 








004242 


162784 020004 




SUB 


«4<R4 


)R4 ANO R5 POINT TO 






024246 


010405 




MOV 


R4.R5 


(RESERVED WORD 






004250 


025015 




CLP 


IR5* 


(PRESET DATA*0 






004252 


000277 




see 










204254 


000244 




CLZ 










004256 


005725 




TST 


IR5** 


( (R5) *000000, 00*0100 






024260 


103402 




BCS 


TST2 






004262 


102401 




BVS 


TST2 








004264 


001401 




BEO 


i*4 








804266 


104400 


TST2I 


HLT 




I ERROR | INCORRECT CC'S 


AS 


SHOWN ABOVE 


804272 


205145 




COM 


-(R5) 


i(R?> *177777, CC*1001 






004272 


103001 




BCC 


COM4 






004274 


120401 




BMI 


,♦4 








024276 


124400 


COM4 I 


HLT 




(ERROR I INCORRECT CC'S 


AS 


SHOWN ABOVE 


024322 


000241 




CLC 










004302 


026024 




ROR 


(R4A* 


! <R4)*077777,CC*00U 






004304 


103002 




BCC 


R0R2 








004306 


102001 




BVC 


R0R2 








004310 


120201 




BPL 


, *4 








224312 


104400 


R0R2 ! 


HLT 




( ERROR I INCORRECT CC'S 


AS 


SHOWN ABOVE 


224314 


000257 




CCC 










024316 


005244 




INC 


-<R«> 


( I R4) *100000, CC*1010 






024320 


122002 




BVC 


I NC4 








004322 


021401 




BEO 


INC4 








004324 


100401 




BMI 


■ *4 








024326 


104402 


1NC4I 


HLT 




1 ERROR l INCORRECT CC'S 


AS 


SHOWN ABOVE 


204332 


222261 




SEC 










204332 


000324 




SWAB 


IR4** 


( ( R4)= 000200, CC»1000 






024334 


103401 




BCS 


SWAB2 








824336 


100401 




BMI 


, *4 








024340 


124400 


SWAB2 1 


HLT 




( ERROR 1 INCORRECT CC'S 


AS 


SHOWN ABOVE 


204342 


005425 




NEG 


IR5** 


( I R9) *177600 »CC*1001 






824344 


123001 




BCC 


NEG2 








204346 


100401 




BMI 


.*4 








224352 


124400 


NEG2 ! 


HLT 




(ERROR! INCORRECT CC'S 


AS 


SHOWN ABOVE 


024352 


005044 




CLR 


*(R4> 


( IR4)*000000,CC*0100 






024354 


001401 




BEO 


,♦4 






024356 


104400 




HLT 










004362 


000261 




SEC 










024362 


006045 




ROR 


*(R5> 


( i r>) * 100000 »ce*i0i0 
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MACYll 
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•74 11*39 PACE 2-12 








00*364 


000261 






SEC 












*04466 


005525 






ADC 


(R5A* 


( (R9>*100001,CC*1000 








004370 


102401 






BVS 


AQC2 








004372 


100401 






BMI 


i *4 










004374 


104400 




ADC2S 


HLT 




SERRORJ INCORRECT CC'S 


AS 


SHOWN 


ABOVE 


004376 


000262 






SEV 












004400 


006224 






ASR 


<R«*t 


» (R4)*140000,CC«100i 








804402 


103002 






BCC 


ASR2 








004404 


102401 






BVS 


ASR2 










i-04406 


100401 






BMI 


■ *4 










*-04410 


104400 




ASR2I 


HLT 




• ERROR! INCORRECT CCS 


AS 


SHOWN 


ABOVE 


*>04412 


000262 






SEV 












004414 

204416 


006144 

103002 






ROL 

BCC 


”<«*> 

ROL** 


1 (R4)*100001, CC#1001 








204420 


102401 






BVS 


ROL< 










204422 


100401 






BM! 


t *4 










£04424 


104400 




R0L4! 


HLT 




J ERROR! INCORRECT CCS 


AS 


SHOWN 


ABOVE 


204426 


005645 






SBC 


-<R5> 


* (R?) *100000, CC» 1000 








204430 


103001 






BCC 


» *4 








204432 


104400 






HLT 




•ERROR! *C BIT FAILED 


TO 


clear 




204434 


005325 






DEC 


( R 5 ♦ ♦ 


> (R5) -077777. CC»0010 








204436 


103402 






BCS 


0EC2 








204440 


102001 






BVC 


DECZ 










*04442 


100001 






BPL 


,♦4 










204444 


104400 




DEC2 1 


HLT 




jERRQRI INCORRECT CCS 


AS 


SHOWN 


ABOVE 


204446 


006324 






ASL 


<R4»* 


1 (R4)*177776,CC«1010 








204450 


102401 






BVS 


i + 4 








204452 


104400 






HUT 












204454 


006344 






ASL 


-<R4> 


J (R4)*177774,CC*1001 








204456 


103003 






BCC 


ASL4 








204460 


102402 






BVS 


ASL« 










*>04462 


001401 






BED 


ASL4 










*04464 


100401 






BMJ 


. *4 










*04466 


104400 




ASL4 S 


HIT 




* ERROR I INCORRECT CCS 


AS 


SHOWN 


ABOVE 


*04470 


022724 


177774 




CMP 


#177774, (R4>* 










*04474 


001401 






BE0 


■ +4 










*04476 


104400 






HLT 












*04500 


020405 






CMP 


R4,R5 










*04502 


001401 






BED 


.*4 










*04504 


104400 






HIT 












204506 


104000 






SCOPE 


















1 CHECK 


UNARY BYTE ORS USING ADDRESS MOOES 2 ANO 4 








*04510 


000401 






BR 


,♦4 


JRCSERVE A WORD 








204512 


000000 






.WORD 


0 


JRESERVEO WORD 








204514 


010705 






MOV 


PC«R5 








204516 


162705 


000004 




SUB 


#4,R5 


JR5 POINTS TO EVEN BYTE 


OF 


RESERVED WORD 


004522 


010500 






MOV 


R5.R0 
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OZOKCE.Pll 












004524 


010002 




MOV 


R0,R2 








*04526 


005202 




INC 


R2 


• R? POINTS TO ODD BYTE 


OF 


RESERVED WORD 


*04530 


005010 




CLR 


(R0* 


) PRESET 


*04532 


000277 




see 










£04534 


000241 




CLC 










*04536 


105125 




COMB 


<R9** 


1 (R0)»000377,CC*1001 






004540 


103002 




BCC 


CQMB2 






*04542 


102401 




'BVS 


C0MB2 








£04544 


100401 




BMI 


. +4 








004546 


104400 


C0MB2S 


HLT 




1 ERROR I INCORRECT CCS 


AS 


SHOWN ABOVE 


*04550 


105542 




ADCS 


-(R2> 


J (R0) =000000, CC*0101 






U04552 


001401 




BEO 


.*4 






004554 


104400 




HUT 




1 ERROR | INCORRECT RESULT , 


AS SHOWN ABOVE 


004556 


105525 




ADCB 


(R5A* 


• <R0)=000400,CC*0000 




*04560 


103401 




BCS 


A0CB2 






*04562 


001001 




BNE 


<*4 








004564 


104400 


ADCB2 ! 


HLT 




1ERS0RI INCORRECT CCS 


AS 


SHOWN ABOVE 


*04566 


000263 




♦SECISEV 








004570 


106045 




RORB 


* ( R5) 


1 (R0)=100000,CC»1001 






*04572 


103003 




BCC 


R0RB4 






*04574 


102402 




BVS 


R0RB4 








004576 


001401 




BEO 


R0RB4 








*04600 


100401 




BMI 


. *4 








*04602 


104400 


R0RB4 ! 


HLT 




JERRQRI INCORRECT CCS 


AS 


SHOWN ABOVE 


004604 


000277 




see 










004606 


106122 




ROLB 


CR2A* 


1 (R0)= 100001,00*0000 






004610 


103403 




BCS 


R0LB2 






004612 


102402 




BVS 


R0LB2 








004614 


001401 




BEQ 


R0LB2 








004616 


100001 




BPL 


,*4 








004620 


104400 


R0LB2I 


HLT 




1 ERROR I INCORRECT CCS 


AS 


SHOWN ABOVE 


*04622 


000257 




CCC 










004624 


106225 




ASRB 


(R54* 


! (R0)»140001, CC*1010 






*04626 


103402 




BCS 


ASRB2 








004630 


102001 




BVC ' 


ASRB2 








004632 


100401 




BMI 


■ *4 








004634 


104400 


ASRB2I 


HLT 




JERROR! INCORRECT CCS 


AS 


SHOWN ABOVE 


004636 


105242 




I NCB 


*(R2) 


1 ( R0 ) *140002, CC*0000 






004640 


000277 




see 








004642 


106222 




ASRB 


(R2A* 


1 (R0)*140001,CC*0000 






004644 


103402 




BCS 


ASRB2A 






004646 


102401 




BVS 


ASRB2A 








004650 


100001 




BPL 


.*4 








004652 


104400 


ASRB2AI 


HLT 




1 ERROR I INCORRECT CCS 


AS 


5H0WN ABOVE 


004654 


020266 




♦SCZISEV 


J SET Z,V 






004656 


106345 




ASLB 


• ( R5 > 


1 (R0) = 100001,CC*1001 






004660 


103003 




BCC 


ASLB4 
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DZOKC-i 

OZOKCE 



024442 


102402 




8VS 


ASLB4 






024444 


001401 




BEO 


ASL84 






024444 


100401 




BMJ 


,♦* 






024472 


124400 


ASLB4I 


HIT 




) ERROR I INCORRECT CCS AS 


SHOWN ABOVE 


024472 


103322 




DECS 


(R2A* 


( <R0) *077401 =£0774 3 [001 3 


,CC«0010 


024474 


103202 




BCC 


0ECB2 




024474 


102001 




SVC 


DECB2 






024722 


100001 




BPl 


i *4 






024722 


124400 


DECB2I 


HIT 




) ERROR I INCORRECT CC’S AS 


5H0WNAB0VE 


004704 


105645 




SBCB 


-<R5) 


J (R0)*077400. CC»0108 




324704 


103402 




3CS 


SBCB4 




004710 


102401 




BVS 


S8C84 






004712 


001401 




BEO 


, *4 






024714 


104400 


SBCB4I 


HIT 




1 ERROR 1 INCORRECT CCS AS 


SHOWN ABOVE 


004714 


105442 




NEGB 


”( R2 ) 


! (R0)=10400,CC«100i 




£'04720 


103002 




see 


NEG84 




£24722 


102401 




BVS 


NEGB4 






£04724 


100401 




BMI 


i-4 






224724 


124400 


NEG84I 


HUT 




? ERROR I INCORRECT CCS AS 


SHOWN ABOVE 


004730 


105725 




TSTB 


(R5A- 


MR0)-100400,CC«0100 




004732 


103401 




BCS 


TSTB2 




£04734 


001401 




BE8 


,-4 






204734 


104400 


TST82 1 


HLT 








004740 


105722 




TSTB 


(R2A* 


( (R0)*100400,CC*1000 




204742 


001401 




BEQ 


TSTB2A 






£04744 


100401 




BMI 


, +4 






£04740 


104400 


TSTB2AI 


HIT 








004750 


000261 




SEC 








£04752 


000342 




SWAB 


*<R2) 


i (R0)s000201,CC*1000 




004734 


103401 




BCS 


SWAB4 




204736 


100401 




BMI 


,♦4 






£04760 


104400 


SWAB4 | 


HLT 








004762 


000277 




see 








£24764 


125225 




INC8 


(R5A* 


1 ( R0 ) =000601= C 0004 3 C201 3,i 


CC*0000 


£04766 


103003 




BCC 


INC82 




£04770 


102402 




BVS 


5NC82 






004772 


001421 




BES 


INCB2 






004774 


100001 




BPL 


.♦4 






£04776 


104400 


INCB2 1 


HLT 








5505000 


022227 000601 




CMP 


(R2A-. *000601 


) CHECK END RESULT 




£03004 


001401 




BED 


i -4 




£03006 


104400 




HLT 








£05010 


020205 




CMP 


R2.R5 


(CHECK REGISTERS 




003012 


001401 




BEQ 


.-4 




003014 


104400 




HLT 








003016 


104000 




SCOPE 
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(CHECK 


UNARY WORD ORS USING 


A0PRES5 MOOES 3 ANQ 5 


£05020 


000402 






BR 


<-6 


(RESERVE 2 WORDS 


003022 


000000 






.WORD 


0 


(1 FOR THE ADDRESS 


003024 


000000 






.WORD 


0 


(ANO 1 FOR OATA 


303026 


010703 






MOV 


PCiRS 




003030 


162703 


000004 




SUB 


#4<R3 




£03034 


005013 






CLR 


(RS» 


(PRESET DATA 


003036 


010300 






MOV 


R3.R0 


(R0 POINTS TO DATA WOF 


003040 


003743 






TST 


• ( R3 ) 


£03042 


010013 






MOV 


R0i <R3 ) 




003044 


010304 






MOV 


R3>R4 




003046 


000237 






ecc 






005050 


005733 






TST 


P ( R3 ) + 


i (R0)=000000,CCsB100 


003052 


001401 






BES 


.-4 


003054 


104400 






HLT 






005056 


000261 






SEC 






003060 


006033 






ROR 


•* ( R3 ) 


( (R0)=100000,CC*1010 


003062 


103402 






BCS 


R0R5 


003064 


102001 






BVC 


R0R5 




£05066 


100401 






BMI 


.♦4 




003070 


104400 




RQR5 : 


HLT 






003072 


000257 






CCC 






003074 


006234 






ASR 


*(R4>+ 


( (R0)»140000,CC*1010 


003076 


102001 






BVC 


ASR3 


003100 


100401 






BMI 


.-4 




003102 


104400 




ASR3 i 


HLT 






003104 


000250 






CLN 






003106 


006333 






ASL 


P(R3>- 


I (R0)=100000,CC»1001 


005110 


103002 






BCC 


ASL3 


003112 


102401 






BVS 


ASL3 




003114 


100401 






BMI 


.*4 




003116 


104400 




ASL3I 


HLT 






£03120 


000277 






see 






003122 


005354 






DEC 


»-<R4> 


J <RB)*077777, CC«0010 


005124 


103003 






BCC 


DEC5 


003126 


102002 






BVC 


DEC5 




003130 


001401 






BEO 


DEC5 




003132 


100001 






BPL 


■ *4 




003134 


104400 




DEC5I 


HLT 






005136 


005453 






NEG 


«.(R3) 


/ (R0»*100001, CC»1001 


003140 


103002 






BCC 


N£05 


003142 


102401 






BVS 


N£05 




003144 


100401 






BMI 


.-4 




003146 


104400 




NEG5 l 


HLT 






003150 


000262 






SEV 






003152 


003134 






COM 


*{R4>* 


( (R0)»077776. CCP0001 
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*>05154 


103001 




BCC 


COM3 




1409156 


102001 




8VC 


< -4 




005160 


104400 


COM3 1 


HLT 






005162 


005233 




INC 


•( R3 ) * 


( <R0>»077777, CC»0001 


005164 


103001 




BCC 


INC3 


*>05166 


100001 




BPL 


■ * 4 




005170 


104400 


INC3; 


HLT 






005172 


005554 




ADC 


*-<R4) 


) (R0)-100000, CC*1010 


005174 


103402 




acs 


A0C5 


005176 


102001 




BVC 


A0C5 




005200 


100401 




BMI 


.*4 




005202 


104400 


ADC5 ! 


HLT 






005204 


000257 




ecc 






005206 


006134 




ROL 


• ( R4 ) ♦ 


MR0>*000000,CCs0111 


005210 


103002 




BCC 


R0L3 


£05212 


102001 




eve 


R0L3 




£>05214 


001401 




BEO 


i -4 




005216 


104400 


R0L3 : 


HLT 






<>05220 


005253 




INC 


R.(R3> 


( ( R0 ) -000001 , CC»0001 


005222 


005654 




SBC 


P-(R4) 


1 (R0)f=000000, CCR0100 


005224 


103401 




BCS 


SBC5 


005226 


001401 




BEO 


. ♦ 4 




005230 


104400 


SBC5 i 


HLT 






£05232 


104000 




SCOPE 







(CHECK UNARY BYTE OPS USING ADDRESS MOOES 3 AND 5 



005234 


000403 


BR 


.*10 


(RESERVE 3 WORDS 


005236 


000000 


.WORD 


0 


(1 FOR EVEN BYTE ADDRESS 


005240 


000000 


.WORD 


0 


(1 FOR ODD BYTE ADDRESS 


005242 


000000 


, WORO 


0 


IANO 1 FOR DATA 


105244 


010702 


MOV 


PC.R2 


005246 


005742 


TST 


- ( R2 ) 


(BACK R2 UP TO 


005250 


005742 


TST 


- < R2 > 


(DATA WORD 


0,05252 


010200 


MOV 


R2.R0 


(R0 POINTS TO THE DATA WORD 


005254 


005010 


CLR 


(R0» 


(PRESET DATA 


005256 


005742 


TST 


-<R2) 


(BACK R2 UP TO 


005260 


005742 


TST 


-<R2> 


(EVEN BYTE ADDRESS WORD 


005262 


010022 


MOV 


R0 1 < R2 ) ♦ 


(LOAD ADDRESS 


£>05264 


005200 


INC 


R0 


(ODD BYTE ADDRESS 


£05266 


010022 


MOV 


R0t (R2) + 


(LOAD ODD BYTE AOQRESS 


005270 


010200 


MOV 


R2,R0 


(RESET R0 


005272 


010205 


MOV 


R2.R5 


005274 


105152 


COMB 


*-(R2> 


( (R0)=177400,CC»1001 


005276 


103001 


BCC 


C0MB5 




005300 


100401 


BMI 


.+4 




005302 


104400 


COMBS ! HLT 






005304 


105752 


TSTB 


P-(R2> 


! (R0)=177400, CC*0100 


005306 


001401 


BEO 


.*4 
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105310 


104400 




HLT 






005312 


000262 




SEV 






.105314 


106255 




ASRB 


P-(R5) 


) (R0)=177400, CCH001 


£05316 


103032 




BCC 


ASRB5 


*■05320 


102401 




BVS 


ASRB5 




*05322 


100401 




BMI 


.+4 




*05324 


104400 


ASRB5 ; 


HLT 






1,05326 


105232 




INCB 


P(R2)+ 


( (R0)*177401. CC*000 


£.05330 


103031 




BCC 


INCB3 




£05332 


100001 




BPL 


.*4 




*05334 


104400 


INCB3: 


HLT 






£05336 


000241 




CLC 






£05340 


106055 




RORB 


P-(R5) 


( (R0J+177400, CC»0U1 


*05342 


103303 




BCC 


R0RB5 


£05344 


102002 




BVC 


R0RB5 




*05346 


001001 




BNE 


R0RB5 




*05350 


100301 




BPL 


i + 4 




*05352 


104400 


R0RB5 ( 


HLT 






*05354 


106332 




ASLB 


* ( R2 ) ♦ 


( CR0)*177000, CC*1001 


*05356 


103002 




BCC 


ASLB3 


£05360 


102401 




BVS 


ASLB3 




*05362 


100401 




BMI 


.+4 




£05364 


104400 


ASLB3J 


HLT 






£05366 


105552 




AOCB 


P-(R2) 


MR0) = 177400, CC*1000 


*05370 


103401 




BCS 


ADCB5 


*05372 


100401 




BMI 


.+4 




*05374 


104400 


ADCB5 | 


HLT 






*05376 


000277 




see 






*05400 


10613? 




rolb 


P(R5>+ 


) (RBIH77401, CC»0000 


*05402 


101402 




BLDS 


RQLB3 


) BRANCH IF C OR Z IS ! 


*05404 


102401 




BVS 


R0LB3 




*05406 


100001 




BPL 


.*4 




*05410 


104400 


R0LB3 1 


HLT 






£05412 


000352 




SWA8 


P-(R2) 


) (R0>*000777, CC«1000 


*05414 


100401 




BMI 


. + 4 


£05416 


104400 




HLT 






*05420 


000261 




SEC 






£05422 


105635 




SBCB 


*( R5 ) ♦ 


) (R0)*000377, CC»0100 


*05424 


103401 




BCS 


SBCB3 


005426 


001401 




BEO 


. + 4 




*05430 


104400 


SBC83 | 


HLT 






£05432 


105432 




NEGB 


P(R2)+ 


> (R0)>000001 


£05434 


105352 




OECB 


•-<R2) 


( (R0>»000000. CC»0101 


£05436 


103001 




BCC 


0ECB5 


£05440 


001401 




8E0 


i*4 





DZQKC-i 

02QKCE 
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005442 104400 0ECB5I HLT 

005444 104000 SCOPE 

i CHECK UNARY WORD OPS USING ADDRESS MQOE 6 (PC) 



009446 


005027 






CLP 


009450 


000000 




UWM6I 


,WORO 


009452 


010700 






MOV 


005454 


024040 






CMP 


005456 


000277 






see 


005460 


006167 


177764 




ROL 


009464 


103403 






BCS 


005466 


102402 






BVS 


005470 


001401 






BEO 


005472 


100001 






BPL 


005474 


104400 




R0L6S 


HLT 


005476 


005167 


177746 




COM 


005502 


103002 






BCC 


005504 


102401 






BVS 


005506 


100401 






BMI 


005510 


104400 




C0H6 : 


HLT 



< PC** 


1 PRESET DATA * 0 


0 


(RESERVED FOR DATA 


PC»R0 

-<R0),-(R0) 


)R0 POINTS TO DATA WORD 


UWM6 


) (R0)«000001,CC«0000 


R0L6 




R0L6 




RCL6 




,*4 




UWM6 


1 (R0)»177776, CC*1001 


C0M6 




C0M6 




, + 4 
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005512 


006267 


177732 




ASR 


UWM6 


) (R0)*177777, 


CC«1010 


005516 


103402 






BC5 


ASR6 






005520 


102001 






8VC 


ASR6 






005522 


100401 






BM I 


,♦4 






005524 


104400 




ASR6t 


HLT 








005526 


000277 






see 








005530 


005467 


177714 




NEG 


UWM6 


J (R0)*00000l, 


CC‘0001 


005534 


103003 






see 


N E06 


005536 


102402 






BVS 


NEC6 






005540 


001401 






BEO 


NEG6 






005542 


100001 






BPL 


i *4 






005544 


104400 




NEG6I 


HLT 








005546 


000277 






see 








005550 


006067 


177674 




ROR 


UWM6 


( ( R0 1*100000 > 


cc »1001 


005554 


103003 






see 


R0R6 


005556 


102402 






BVS 


R0R6 






005560 


001401 






BEO 


R0R6 






005562 


100401 






BM I 


i *4 






005564 


104400 




R0R6 ! 


HLT 








005566 


005667 


177656 




SBC 


UWM6 


J <R0 ) =077777 i 


CC*0010 


005572 


103402 






BCS 


SBC6 




005574 


102001 






Bve 


SBC6 






005576 


100001 






BPL 


i*4 






005600 


104400 




SBC6 : 


HLT 








005602 


000242 






CLV 








005604 


005267 


177640 




INC 


UWM6 


( ( R0 ) -100000 . 


CC10U 


005610 


103403 






BCS 


INC6 






005612 


102002 






BVC 


JNC6 






005614 


001401 






BEO 


I N C 6 






005616 


100401 






BM! 


i*4 






005620 


104400 




INC 61 


HLT 








005622 


006267 


177622 




ASR 


UWM6 


( <R0)*140000, 


CC1010 


005626 


000261 






SEC 






005630 


006367 


177614 




ASL 


UWM6 


( (R0)=100000, 


cc »1001 


005634 


103002 






BCC 


ASL6 




005636 


102401 






BVS 


ASL6 






005640 


100401 






BM1 


i *4 






005642 


104400 




ASL6 ( 


HLT 








005644 


005367 


177600 




DEC 


UWM6 


1 ( R0 ) 5077777 , 


CC*0011 


U05650 


103002 






BCC 


D£C6 






005652 


102001 






BVC 


DEC6 






005654 


100001 






BPL 


.*4 






005656 


104400 




DEC6 : 


HLT 








005660 


005567 


177564 




ADC 


UWM6 


i (R0M100000, 


CC*1010 


005664 


103402 






BCS 


ADC6 
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005666 


102001 






BVC 


ADC6 




005670 


100401 






BM I 


.*4 




005672 


104400 




ADC6 : 


HLT 






005674 


008242 






CLV 






005676 


000367 


177546 




SHAB 


UWM6 




005702 


100401 






BMI 


t +4 




005704 


104400 






HLT 






005706 


022710 


000200 




CMP 


#280, (R0) 




005712 


801401 






BEO 


,*4 




005714 


104400 






HLT 






005716 


104000 






SCOPE 












(CHECK 


UNARY 


BYTE OPS (EVEn/ODO) 


USING ADDRESS MODE 6 (PC) 


005720 


812700 


086262 




MOV 


#UBM6,R0 




005724 


063700 


001004 




ADD 


P#PACTOR,R0 


;R0 POINTS TO ADDRESS OP QATA 


005730 


005067 


000326 




CLR 


UBM6 


; CLEAR Data 


005734 


000277 






see 




005736 


000244 






CLZ 






005740 


105767 


000316 




TSTB 


UBM6 




005744 


103403 






BCS 


TSTB6 




005746 


102402 






BVS 


TSTB6 




005750 


001001 






BNE 


TSTB6 




005752 


100001 






BPL 


• *4 




005754 


104400 




TSTB6I 


HLT 






005756 


000257 






CCC 






005760 


105767 


000277 




TSTB 


UBM6*1 


(TEST QOD BYTE 


005764 


001401 






BEO 


i*4 




005766 


104480 






HLT 






005770 


105667 


080266 




SBCB 


UBM6 


; (R 0 )- 000000 , c'C*0100 


005774 


103402 






BCS 


SBCB6 




005776 


102401 






BVS 


SBCB6 




006000 


001401 






BEO 


>*4 




006002 


104400 




S8CB6 ( 


HLT 






006004 


000261 




ist 


SEC 






006006 


105267 


000250 




INCB 


UBM6 


(LOOP UNTIL ( R0 ) *077600 > CC*1011 


006012 


100403 






BM J 


2S 


006014 


105567 


000243 




ADCB 


UBM6*1 


(INCB INST INCREMENTS EVEN BYTE 


006020 


000771 






BR 


IS 


(ADCB INCREMENTS OOO BYTE 


006022 


103001 




2S( 


. BCC 


INCB6 




006024 


102401 






BVS 


,*4 




006826 


104400 




INCB6I 


HLT 






806030 


106367 


000226 




ASLB 


UBM6 


( (R0>*077400, CC#0U1 


806034 


103803 






BCC 


ASLB6 




006036 


102002 






BVC 


ASLB6 




006040 


801001 






BNE 


ASLB6 




806042 


100001 






BPL 


, *4 




806044 


104400 




ASLB6 ( 


HLT 






806046 


000242 






CLV 






806050 


105567 


000207 




ADCB 


UBM6*1 


I (R0)*100000, CCU010 
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004054 


103402 




BCS 


A0C66 




004054 


102001 




BVC 


A0CB6 




004040 


100401 




BMI 


i*4 




204042 


104400 


A0CB6I 


HLT 






004044 


000261 




SEC 






004044 


106067 


000171 


RORB 


UBM6*1 


1 1 R0 ) *1400001 CC*10i0 


004072 


103402 




BCS 


R0RB6 


004074 


102001 




BVC 


rqrba 




004074 


100401 




BMI 


.*4 




004100 


104400 


R0RB6I 


HLT 






£04102 


105167 


000154 


COMB 


UBM6 


J (R0) *140377 CC*1001 


£04104 


103002 




BCC 


C0MB6 




£04110 


102401 




BVS 


C0MB6 




£04112 


100401 




BMI 


t*4 




£04114 


104400 


CQM86I 


HLT 






£04114 


000262 




SEV 






£04120 


105467 


000137 


NEGB 


UBH6*1 


1 ( R0> *040377 > CC*0001 


£04124 


103002 




BCC 


NEGB6 


£04124 


102401 




BVS 


N£GB6 




£04130 


100001 




BPL 


■ *4 




£04132 


104400 


NEGB6I 


HLT 






004134 


106167 


000123 


rolb 


UBM6*1 


M R0 ) *100777 , CC*1010 


£04140 


103402 




BCS 


R0LB6 


£04142 


102001 




BVC 


ROLB6 




£04144 


100401 




BMI 


i *4 




£04144 


104400 


R0LB6I 


HLT 






£04150 


106267 


000106 


ASRB 


UBM6 


M R0 ) =100777 > CC*10B1 


£04154 


103002 




BCC 


A$RB6 




£04154 


102401 




BVS 


ASRB6 




£04140 


100401 




BMI 


t *4 




£04142 


104400 


ASRB6I 


HLT 






£06144 


105267 


000072 


INCB 


UBM6 


MR0)*100400, CC*0101 


£06170 


103302 




BCC 


J NCB6A 




£06172 


102401 




BVS 


INCB6A 




£06174 


001401 




BEQ 


■ *4 




£06176 


104400 


INCB6AI 


HLT 






£06200 


105367 


000057 


OECB 


UBM6*1 


MR0)*100000, CC*1001 


£06204 


103003 




BCC 


0ECB6A 




£06206 


102402 




BVS 


0ECB6A 




£06210 


001401 




BEO 


DECB6A 




£06212 


100401 




BMI 


• * 4 




£06214 


104400 


OECB6AI 


HLT 






£06216 


000367 


000040 


SWAB 


UBM6 


MR0)*000200, CC*1000 


£06222 


103401 




BCS 


SWABi 


£06224 


100401 




BMI 


• *4 




£06226 


104400 


SWAB6I 


HLT 







: BASIC 11 


. FAMILY 
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MACYll 
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£06230 


106167 


000026 


ROLB 


UQM6 


£06234 


103002 




Bee 


R0LB6A 


£06236 


102001 




BVC 


R0LB6A 


£06240 


0014B1 




8E0 


i*4 


£06242 


104400 


R0LB6AI 


HLT 




£06244 


005767 


000012 


TST 


UBM6 


£06250 


103402 




BCS 


TST6 


£06252 


102401 




BVS 


T$T6 


£06254 


£01401 




BEO 


,♦4 


£06256 


104400 


TST6 i 


HLT 




006260 


000401 




BR 


< *4 


£06262 


000000 


UBM6S 


.WORD 


0 


£06264 


104000 




SCOPE 




£06266 


010702 




MOV 


PC.R2 


£06270 


062702 


000012 


ADO 


#12. R2 


£06274 


012707 


001132 


MOV 


PRELOC.RC 


£06300 


000240 




NOP 
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i (R0)*000000, CC«01il 



MR 0)*000000, CC*B100 



JRESERVE A WORD 
J WORD RESERVED FOR DATA 



I GO RELOCATE program code 
1 PROGRAM RETURNS HERE»2 

10000000000000 last address or code to be relocated 00000000000 
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OZQKC-I 

OZQKCE 









llllllllllllll 


FIRS? AOBRESS 


TO BE RELOCATED 111111111 


806302 


010700 




REIU 


MOV 


PC»R0 


(GET PC 


006304 


005740 






TST 


*1*0) 


(R0 CONTAINS THE ADDRESS 0* REU 


006306 


010037 


001010 




MOV 


R0*fRFR8TAD 


(SAVE 


006312 


010700 






MOV 


PC»R0 


(GET CURRENT PC 


006314 


162700 


006314 




SUB 


#.,R0 


(SUBTRACT RELOCATION FACTOR 


006320 


010037 


001004 




MOV 


R0»*#F ACTOR 


(SAVE RELOCATION FACTOR 


006324 


010701 






MOV 


PC.R1 


(SET NEW SCOPE PTR 








(CHECK 


UNARY WORD OPS USING 


ADDRESS MODE 7 


006326 


000403 






0R 


Uw7 


(RESERVE 3 WORDS FOR ADDRESSES 6 DATA 


806330 


000000 






.WORD 


0 


(CONTAINS ADDRESS OF UWM7 


006332 


000000 




UHM7I 


.WORD 


0 


(CONTAINS DATA 


006334 


000000 






,WORD 


0 


(CONTAINS ADDRESS OF UWM7 


806336 


010700 




UW7 1 


MOV 


PC»R0 




806340 


005740 






TST 


-<R0> 




006342 


005740 






TST 


*<R0) 




806344 


005040 






CLR 


• <R0) 


(CLEAR TEST DATA 


886346 


010002 






MOV 


R0iR2 




806350 


010240 






MOV 


R2i-(R0> 


(SET UP ADDRESS 


806352 


005720 






TST 


(R0* + 


(MOVE RO TO NEXT AODRESS 


806354 


005720 






TST 


(R06* 




806356 


010210 






MOV 


R2.4R0) 


(SET NEXT AODRESS 


006360 


010200 






MOV 


R2iR0 


(SIT R0 POINTING TO DATA 


806362 


000277 






see 






806364 


000244 






CL* 






006366 


805772 


000002 




TST 


*2(2) 


( (R0)-000000, CCI0100 


806372 


001401 






BEO 


t + 4 


( 


806374 


104400 






HIT 






006376 


000277 






see 






806400 


005672 


177776 




SBC 


0-242) 


( (R0)sl77777, CC*1001 


006404 


103002 






see 


SBC? 




806406 


102401 






BVS 


SBC7 




806410 


100401 






BMI 


i +4 




006412 


104400 




SBC7 1 


HIT 






806414 


000277 






see 






806416 


000241 






CLC 






806420 


006372 


000002 




ASL 


•2<2) 


! (R0)*177776, CC»1001 


806424 


103002 






BCC 


ASL? 




006426 


102401 






BVS 


ASL* 




806430 


100401 






BMI 


■ *4 




806432 


104400 




ASL7J 


HUT 






806434 


000257 






ece 






00643 6 


005372 


000002 




DEC 


*2(2) 


( <R0>n77775, CC*1000 


806442 


103402 






BCS 


OEC* 




806444 


102401 






BVS 


DEC* 




806446 


100401 






BMI 


i*4 




006450 


104400 




0EC71 


HUT 







BASIC 11 FAMILY 
Pll 


INSTRUCTION EXER, 


MACYU 


27(657) 


12-0EC-74 11139 PAGE 10*1 


806452 


000262 




SEV 






206454 


006272 


177776 


ASR 


P-242) 


1 (R0)*177776, CC»1001 


006460 


103002 




BCC 


ASR? 


206462 


102401 




BVS 


ASR* 




006464 


100401 




BMI 


. + 4 




206466 


104400 


ASR7: 


HIT 






806470 


000241 




CLC 






006472 


000262 




SEV 






006474 


006072 


177776 


ROR 


•-242) 


1 (R0)*077777, CC«0000 


206500 


101402 




BIOS 


ROR? 


(BRANCH IF C OR Z IS SET 


006502 


102401 




BVS 


R0R7 


006504 


100001 




BPl 


i+4 




206506 


104400 


R0R7 1 


HLT 






206510 


000262 




SEV 






206512 


005472 


020002 


NES 


•2(2) 


( (R0)H00081. CC*1001 


206516 


103002 




BCC 


N£G7 


206520 


102401 




BVS 


N£G* 




006522 


100401 




SMJ 


,+4 




206524 


104400 


NEG71 


HLT 






206526 


000250 




CLN 






006530 


000372 


177776 


SWAB 


•-242) 


( (R0I-000600, CC*1000 


206534 


103401 




BCS 


SWAB7 


206536 


100401 




BMI 


, + 4 




806540 


104400 


SWAB7 | 


HLT 






206542 


000262 




SEV 






206544 


005172 


000002 


COM 


*2(2) 


( (R0)=177177. CCU001 


806550 


103002 




BCC 


C0M7 


006552 


102401 




BVS 


■C0M7 




006554 


100401 




BMI 


t +4 




006556 


104400 


C0M7 ( 


HIT 






006560 


000372 


000082 


SWAB 


• 2(2) 


( (R0)*077776, CC*1000 


806564 


100401 




BMJ 


,+4 




206566 


104400 




HLT 






206570 


000277 




see 






806572 


005572 


177776 


ADC 


•-242) 


) !R0)*077777, CC*0008 


206576 


103402 




BCS 


A0C7 


006600 


102401 




BVS 


A0C7 




006602 


100001 




BPL 


.+4 




206604 


104400 


ADC7I 


HLT 






006606 


005272 


000002 


INC 


•2(2) 


( (R0)*100000, CCH010 


206612 


102001 




8VC 


JNC7 


006614 


100401 




BMI 


, +4 




006616 


104400 


INC7! 


HLT 






006620 


000257 




CCC 






006622 


006172 


177776 


ROL 


•-242) 


1 (R0>*000000. ec* 0 iu 




DZQKC-C BASIC 11 FAMILY 
OZQKCE.Pli 

026626 123202 
006632 122221 
006632 221401 
006634 104402 
006636 104000 



006642 225722 
006642 005212 
006644 005742 
006646 205012 
206650 010701 



226652 000263 
006654 105672 
026660 103003 
006662 102402 
306664 021401 
006666 100421 
006670 104400 

006672 000277 
306674 105572 
306700 103403 
306702 102402 
306704 001401 
U06706 100001 
306710 104400 

006712 105172 
306716 103002 
306720 102401 
006722 100401 
306724 104400 

306726 000241 
006730 106072 
006734 103002 
306736 102001 
306740 100201 
£06742 104402 

306744 105272 
306750 103002 
206752 102001 
306754 100401 
306756 104400 

206762 105372 
306764 103002 
306766 102401 
206770 100401 
206772 104400 



DZOKC-C BASIC 11 FAMILY 
DZQKCE.PH 



306774 106372 
007000 103002 
307002 102001 
307004 201401 
207006 104400 

207010 002241 
307012 106272 
307016 123002 
007020 102401 
007022 100401 
007024 104400 

007226 105472 
007032 103402 
007034 102401 
007036 001401 
207040 104400 

207042 000262 
207044 106172 
207050 123002 
207052 102401 
007054 100401 
007056 104400 

007060 105272 
007264 105272 
007070 105572 
007074 105172 
007100 001401 
007102 104400 
007104 104000 



307106 000277 
007110 010700 
307112 103002 
307114 102401 
307H6 001001 
307120 104400 

307122 010002 
007124 000262 
007126 160002 
007130 103402 
007132 102401 
307134 001401 
307136 104400 

007140 000244 
307142 010203 
007144 103401 



INSTRUCTION EXER, 
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000002 



177776 



177776 



177776 





see 


ROLI 






SVC 


ROL? 






SEO 


<♦* 




R017I 


HLT 

SCOPE 






1 CHECK 


UNARY 


BYTE OPS USING 


ADDRESS mode 7 




TST 


(R0A* 






INC 


(R0A 


(WORD FOLLOWING UWM7 CONTAINS AOORISS 




TST 


-<R0) 


( OF ODD BYTE. R0 POINTS TO OATa'WORD 




GLR 


<R0» 


(PRESET SATA 




MOV 


PC.R1 


(SET SCOPE PTR 


) NOTE i 


*2(2) 


REFERENCES ThE 


ODD BYTE. AND *-2(2) REFERENCES THE EVEN 




♦ SEC I SEV 


J SC T C AND V 




SBCB 


*2(2) 


I (R0) *177400 , ec»1001 




BCC 


S8CB7 




BVS 


S8CB7 






BEQ 


SBCB7 






BM1 


» *4 




SSCB7 | 


HLT 








see 




( SET CONDITION COOES 




A0C8 


*-242) 


J (R0)*177401, cc*0000 




8CS 


A0CB7 




BVS 


ADCB7 






BEQ 


A0CB7 






BPL 


,♦4 




AOCB7 i 


HLT 








COMB 


*-2(2) 


( (R0)*177776, CC«1001 




BCC 


CQMB7 






BVS 


C0MB7 






BMJ 


<*4 




C0MB7 l 


HLT 








CLC 




(CLEAR CARRY 




ROR8 


*2(2) 


) (R0)*077776. CC®0011 




BCC 


R0RB7 




BVC 


RQRB7 






BPL 


,*4 




R0RB7 | 


HLT 








INCB 


*2(2) 


( (R0)*100376. CC*10U 




BCC 


JNCB7 






BVC 


INCB7 






BMI 


. * 4 




INCB7) 


HLT 








DEC8 


#-2(2) 


f !R0)«100375. CC*1O01 




BCC 


0EC87 






BVS 


DECB7 






EMI 


, *4 




DECB7 i 


HLT 
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000002 


aslb 


*2(2) 


! (R0)*000375, CC»01U 




BCC 


A5LB7 






BVC 


ASLB7 






BEQ 


.*4 




ASL87) 


HLT 








CLC 




(CLEAR CARRY 


177776 


ASRB 


*-242) 


> (R0)s000376. CC«1001 




BCC 


ASRB7 




BVS 


ASRB7 






BMI 


.*4 




ASRB7 ) 


HLT 






000002 


NEG8 


*2(2) 


I ( R0 ) *000376 » CC*0100 




SCS 


NESB7 






BVS 


NEGB7 






BEQ 


.*4 




NEGB7 j 


HLT 








SEV 






177776 


ROLB 


•-242 ) 


( ( R0 > *00374 , CCil001 




BCC 


ROLB7 




BVS 


R0LB7 






8M1 


, *4 




R0LB7 1 


HLT 






177776 


INCB 


•-242) 


((R0J-000375, CC*1001 


177776 


INCB 


*-242) 


) (R0)«000376, CC»1001 


177776 


A0C6 


•>242) 


) (R0)*000377, CC*1000 


177776 


COMB 


*•242) 


( (R0)*000000, CC«0100 




BEQ 

HLT 

SCOPE 


, *4 




) CHECK 


BINARY 


OPS USING 


address mode 0 




see 




(SIT CONDITION COOES 




MOV 


PC*R0 


(R0*PC. CC*X001 




BCC 


MQV0 






BVS 


MQV0 






BNE 


,*4 




MOV0! 


HLT 








MOV 


R0i R2 


(R2*R0 




SEV 




(S|T V 




SUB 


R0.R2 


(R2*000000, CC<0100 




BCS 


SUB0 




BVS 


SUB0 






BEQ 


.♦4 




SUB0I 


HLT 








CLI 








MOV 


R2,R3 


(R2*R3*000000i CC*0100 




BCS 


MQV0A 




ozqkc-c 



i BASIC 11 FAMILY 
PU 


INSTRUCTION EXER. 


MACYll 


87(657) 


007146 


001401 




BEQ 


>+4 


007130 


104400 


MOV0AI HLT 




007138 


000257 




CCC 




007134 


000878 




+SEV I SEN 


007156 


080803 




CMP 


R8iR3 


207160 


103403 




SCS 


CMP0 


007168 


102408 




BVS 


CMP0 


007164 


001001 




SNE 


CMP0 


007166 


100001 




8PL 


> *4 


007170 


104400 


CMP0I 


HLT 




007178 


010002 




MOV 


R0,R2 


807174 


010203 




MOV 


R2.R3 


807176 


060803 




ADD 


R2iR3 


007800 


006308 




ASL 


R2 


807208 


080203 




CMP 


R2.R3 


207804 


001401 




8EQ 


• +4 


007206 


104400 




HLT 








ITHE 


FOLLOWING 


SUBTgST 






1 BIT 


TEST (BIT) 


. USING 1 


207810 


005008 




CLR 


R 2 


207818 


005808 




INC 


R2 


207814 


000408 




BR 


81 


007816 


006308 


1SI 


ASL 


R8 


207880 


100407 




BMJ 


4$ 


007822 


010805 


2St 


MOV 


R8.R5 


007824 


000277 




see 




007826 


03080$ 




BIT 


R2.R5 


207830 


103008 




BCC 


3$ 


207838 


102401 




8VS 


3$ 


207834 


001370 




SNE 


IS 


207236 


104400 


3 S t 


HLT 




007840 


010805 


4 S 1 


MOV 


R2.R5 


207842 


000237 




CCC 




007844 


030205 




BIT 


R8.R5 


007246 


100401 




BMJ 


i-4 


007250 


104402 




HLT 




207858 


005008 




CLR 


R2 


207854 


000877 




see 




207256 


050208 




BIS 


R0.R2 


207860 


103008 




BCC 


B I S0 


207268 


102401 




BVS 


B[ S0 


207264 


001001 




BNE 


■ +4 


207866 


104400 


BIS01 


HLT 




207870 


010003 




MOV 


R0iR3 


207278 


000877 




see 




207274 


000844 




CLZ 




007876 


040003 




8 1 C 


R0,R3 


207300 


103003 




BCC 


BIC0 


007308 


102402 




BVS 


BIC0 



18-DEC-74 11IJ9 PACE 10-4 



A SET V I N 
I Rg»R3«000000 f 



I R0SR2 
(RBfRg.RJ 
)R3lg*R0 
; R2f 2»R0 

>R2»R3»2#R0 



CO*0100 



jerrori check ado instruction 

A BIT THROUGH R8 and R5 AND DOES A 



;R8»R5 



DZOKC-C BASIC « FAMILY INSTRUCTION EXER, 
OZGKCE.Pil 



007304 

007306 

007310 

007318 

007314 

007316 

007380 

007322 

007324 

007386 

807330 

007338 

007334 

007336 

007340 

007348 

007344 

007346 

007330 

807338 

007354 

007356 

807360 

807362 

007364 

007366 

007370 

007378 

007374 

807376 

807400 

807402 

007404 

007406 

007410 



001001 

100001 

104400 

010004 

005104 

040004 

005104 

080004 

001401 

104400 

010004 

005104 

010403 

050003 

103001 

100401 

104400 

005203 

001401 

104400 

010304 

005103 

000861 

006004 

060304 

103003 

102008 

001401 

100001 

104400 

010700 

088080 

080007 

001401 

104400 



8IC0! 



BIS0AI 



ADD0S 



007418 010700 

207414 062700 000010 

007420 010008 

007428 080700 

007484 001008 

007486 080800 

007430 001401 

007438 104400 CMP0A | 

807434 104000 



MACYll 


27(657) 12-1 


BNE 


S I C0 


BPL 


i-4 


HLT 




MOV 


R0lR4 


COM 


R4 


BIC 


R0iR4 


COM 


R4 


CMP 


R0 1 R4 


BEQ 


• -4 


HLT 




MOV 


R0,R4 


COM 


R4 


MOV 


R4|R3 


BIS 


R0«R3 


BCC 


B I S0A 


BMJ 


i+4 


HLT 




INC 


R3 


BEQ 


.*4 


HLT 




MOV 


R3iR4 


COM 


R3 


SEC 




ROR 


R4 


ADD 


R3 1 R4 


BCC 


ADO0 


BVC 


ADD0 


BEQ 


AOD0 


BPL 


. + 4 


HLT 




MOV 


PC r R0 


CMP 


(R04+, ( R0 ) - 


CMP 


R0iPC 


BEQ 


• +4 


HLT 




MOV 


PC.R0 


ADD 


#10)‘R0 


MOV 


R0iR2 


CMP 


PC.R0 


BNE 


CMP0A 


CMP 


R2.R0 


BEQ 

HLT 

SCOPE 


.+4 



11139 PAGE 10-5 



» R3»R4s0 
(R3H77777 
)SEf C 
JR4S100000 

JR3»177777«R4*077777, Cq*0011 



(CHECK BINARY 8YTE OPS USING ADDRESS MOPE 0, 

007436 018703 185838 MOV P185852YR3 

007448 010304 MOV R3.R4 JR3«R4. 125838 

007444 140304 SICS R3iR4 !R3*183g98# R4»185000 

007446 088704 185000 CMP #185000?R4 

007452 001401 BEQ , + 4 




D2QXC-C BASIC il FAMILY INSTRUCTION EXER, MACY11 27**57) 12-0|C»74 11139 PAGE 10*6 

02QKCE t Pll 



007454 


104400 




HUT 




( ERROR | BIOS FAILED 


007456 


005004 




CLR 


R4 


(03*125252, R4*0 


007460 


150304 




BISS 


R3iR4 


(R3*125252i R4*000252 


007462 


022704 


000252 


CMP 


1*232, R4 




007466 


001401 




8E9 


.*4 




007470 


104400 




HLT 




(ERROR! BISS FAILED 


007472 


110404 




M0V8 


R4,R4 


(R4*177652 


007474 


022704 


177652 


CMP 


*177652', 'R4 


(MOVB EXTENDS THE sign 


007500 


001401 




9EG 


,*4 




307502 


104400 




HLT 




(ERROR! M0V8 FAILED 


307504 


132704 


177525 


9 1 TB 


*177529, R4 




007510 


001401 




BEG 


,♦4 




007512 


104400 




HLT 




(ERROR! BITS FAILED 


007514 


105104 




COMB 


R4 


(R4*177525 


307516 


110404 




MOVE) 


R4.R4 


(R410001S5 


307520 


022704 


000125 


CMP 


*125, R4 




007524 


001401 




BEG 


,*4 




00752o 


104400 




HLT 






007530 


150304 




BISS 


R3,R4 


;R3*129292 i R4*000377 


307532 


105204 




1NCB 


R4 




307534 


005704 




TST 


R4 




207536 


001401 




BEG 


.*4 




307540 


104400 




HLT 






207542 


104000 




SCOPE 












ICHECK BINARY 


ops using address 


MODE 1 


207544 


000402 




BR 


1*6 


(RESERVE TWO WORDS 


007546 


000000 




.WORD 


0 


(RESERVED FOR SOURCE DATA 


207550 


000000 




.WORD 


0 


(RESERVED FOR DESTINATION 


207552 


010704 




MOV 


PC.R4 




207554 


005744 




TST 


*<R4> 




207556 


005044 




CLR 


-(R4) 


(R4 POINTS TO DESTINATION 


307560 


010403 




MOV 


R4,R3 




207562 


005043 




CLR 


*<R3> 


!R3 POINTS TO SOUCE DATA 


207564 


005113 




COM 


(R3* 


( (R3 > *177777 


307566 


005214 




INC 


<R4* 


; (R4)*00000i 


007570 


000262 




SEV 




(SET V 


307572 


061314 




ADD 


<R3», (R4) 


MR3)*177777, ( R4 t *000000 (l 


207574 


103002 




BCC 


AOD1 




207576 


102401 




BVS 


AOOl 




207600 


001401 




BEG 


■ *4 




007602 


104400 




AOOll HLT 






207624 


000277 




see 






007606 


000250 




CLN 






207610 


021314 




CMP 


<R3*. <R4> 


( (R3)*177777, <R4)*000000, 


007612 


103403 




9CS 


CMP! 





D2GKC-C BASIC 11 FAMILY 


INSTRUCTION EXER, 


MACYll 
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207614 


102402 




BVS 


CMP1 


307616 


001401 




BEG 


CMP1 


307620 


102401 




8MI 


,♦4 


007622 


104400 


CMPli 


HLT 




207624 


000277 




see 




007626 


000244 




CLZ 




007630 


031314 




BIT 


<R3», !R4) 


007632 


103002 




BCC 


BJT1 


007634 


102401 




BVS 


BIT! 


007636 


001401 




BEG 


, *4 


007640 


104400 


SITU 


HLT 




007642 


000277 




see 




007644 


000245 




‘CLCICLZ 


007646 


005114 




COM 


<R4* 


007650 


161314 




SUB 


<R3*. (R4) 


307652 


103402 




8CS 


SUB1 


007654 


102401 




BVS 


SUB1 


207656 


001401 




BEG 


,♦4 


207660 


104400 


SUBli 


HLT 




007662 


105013 




clrb 


<R3* 


007664 


000313 




SWAB 


(R3* 


007666 


000270 




SEN 




007670 


011314 




MOV 


<R36» (R4) 


207672 


100001 




BPL 


t *4 


007674 


104400 




HLT 




207676 


000314 




SWAB 


(R4* 


207700 


000263 




♦SECISEV 


007702 


051314 




BIS 


(R3*. <R4) 


207704 


103002 




BCC 


BIS1 


007706 


102401 




BVS 


BISt 


007710 


100401 




BM J 


,*4 


00*712 


104420 


BIS1I 


HLT 




£07714 


041314 




BIC 


(R3A, (R4) 


207716 


103002 




BCC 


BIC1 


007720 


102401 




BVS 


BJC1 


307722 


100401 




BMI 


,*4 


007724 


104400 


BICll 


HLT 




007726 


000262 




SEV 




007730 


021314 




CMP 


C RS* , (R4! 


207732 


103003 




BCC 


CMP1A 


007734 


102402 




BVS 


CMP1A 


007736 


001401 




BEG 


CMP1A 


007740 


100001 




BPL 


,*4 


007742 


104400 


CMP1AI 


HLT 




007744 


005013 




CLR 


(R3A 


007746 


000261 




SEC 




007750 


006013 




ROR 


(R3A 


007752 


011314 




MOV 


(R3*. (R4> 



) CR3)=177777, (R4)*000000, 



( ( R4 ) *177777 

» (RJ)*177777, (R4)»000000, 



! (R3)*177400 
( (R3)*000377 

((R3)»<R«)»000377 



} (RJ)»000377, (R4)»177400 
(SET C 4 V 

MR3)«000377, (ROH77777 



) (RJ 1*000377, (R4> *177400, 



(SET V 

( <R3>*000377, JR4)»177400, 



!IR3!*0000B0 

( (R3)*100000 
) (R3)*(R4)«i00000 



DATA 

DATA 

CC*010i 

CCH000 



CCI030], 

CCIBIP 



CC*i00i 

CC»i00i 

CCI0001 
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007754 


005114 




COM 


007754 


161314 




SUB 


007760 


103002 




BCC 


007762 


102001 




bvc 


007764 


100401 




BM! 


007766 


104400 


SUBIA 1 


HLT 


007770 


000277 




see 


007772 


161314 




SUB 


007774 


101402 




8L0S 


007776 


102401 




BVS 


010000 


100001 




BPL 


010002 


104400 


SUBIBl 


HLT 


010004 


011314 




MOV 


010006 


001401 




BEO 


010010 


100401 




BMI 


010012 


104400 


M0V1 1 


HLT 


010014 


061314 




ADO 


010016 


103003 




8CC 


010020 


102002 




BVC 


010022 


001001 




8NE 


010024 


100001 




BPL 


010026 


104400 


AODlA ) 


HLT 


010030 


005113 




COM 


010032 


011314 




MOV 


010034 


061314 




ADD 


310036 


103402 




BCS 


010040 


102001 




8VC 


010042 


100401 




BMI 


010044 


104400 


ADOlBl 


HLT 


010046 


062714 000002 




ADD 


010052 


005714 




TST 


010054 


001401 




BEO 


010050 


104400 




HLT 


010060 


104000 




SCOPE 






(CHECK 


BINARY 


010062 


000402 




BR 


010064 


000000 




.WORD 


010066 


000000 




.WORD 


010070 


010705 




MOV 


010072 


005745 




TST 


010074 


005045 




CLR 


010076 


010502 




MOV 


010100 


005042 




CLR 


010102 


005202 




INC 


010104 


105112 




COMB 


010106 


000277 




see 


010110 


111215 




MOVB 



(R4A ( (R4) *077777 

<RS»,(R4) I ( R3 )* 100000, (R4)»177777» CO1011 

SuBIA 
SUBJA 
. -4 



t R34 i ( R4 ) ) <R$)=100000, IR4)»077777, CCI0000 

SUS1B (BRANCH IF C QR B IS SET 

SUB1B 

,♦4 



( R3A < ( R4 ) ( (RJ>=100000, (R4>*1 00000, CC*1000 

M0V1 
• -4 



(R3Ai (R4) J (R3)=100000, (R4>*000000, CCS0111 

AD01A 

A0D1A 

A001A 

1-4 



<R3i MR3) = 077777 

< R3A , ( R4 } ((R4)*077777 

( R34 , ( R4 ) ( (R3)=077777, (R4>*177776, CC*1010 

ADQ1B 

ADDJB 

.-4 



#2 , 4R4 ) 

(R4A (CHECK FINAL RESULT 

i *4 



BYTE OPS using address mode 1 

i *6 

0 

0 

PC.R5 

-(R5) 

-<R5> ( (R5)=000000 

R5.R2 

*{R2) (<R2>*000000 

R2 IR2 POINTS TO ODD BYTE 

<RZ* ( (R?)=177400 



<R2*» (R9) I (R2)»177400, (R9> *000377, CC*1001 



OHOKC-C BASIC 11 FAMILY 


INSTRUCTION EXER, 


MACYil 
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010112 


103005 




BCC 


MOVB1 




810114 


102404 




BVS 


MOVB1 


! 


010116 


001403 




BEO 


MOVB1 




810120 


100802 




BPL 


MOVB1 




810122 


105215 




INC8 


(R5A 


(CHECK RESULT 


810124 


001401 




BEO 


.♦4 


010126 


104400 


MOVBli 


HLT 






810130 


106312 




ASLB 


(R2» 


(SHIFT (R2) UNTIL 


810132 


102376 




BVC 


.-2 


; t R2 ) =000000 


010134 


106012 




RORB 


(R2A 


I (R2)*100000 


810136 


105315 




DECS 


(R5A 


( CR5)»00377 


010140 


106015 




RORB 


(R5# 


) (R5)*000177 


010142 


000257 




CCC 




010144 


121512 




CMPB 


( R5* , (Ri ) 


( (R5 ! =000177 , ( R2 ) *100000 , CC* 1010 


310146 


102001 




BVC 


CMPB1 




210150 


100401 




BMI 


.♦4 




810152 


104400 


CMPBlI 


HLT 






010154 


005003 




CLR 


R3 




010156 


000261 




SEC 






810160 


006003 




ROR 


R3 


(R3»100000 


810162 


050315 




BIS 


R3i<R5) 


MRj> = 100177 


010164 


000273 




♦ SEC 1 SEV I SEN 


(SET C.V, i N 


010166 


131215 




BITS 


(R2A. (R5) 


( (R2) =100000, (R5)*100177, CC«0101 


010170 


103002 




BCC 


bitbi 


010172 


102401 




BVS 


8JTB1 




010174 


001401 




BEO 


.♦4 




010176 


104400 


BITBll 


HLT 






£10200 


151215 




B I SB 


<R2», <R5> 


( (R?) =100000. (R5> *100377, CCS1001 


810202 


103001 




BCC 


BJSB1 


210204 


100401 




BMI 


,♦4 




810206 


104400 


BISB1I 


HLT 






010210 


141215 




BICB 


(R2A, (R5> 


( (R?) =100000, (R5 1*100177, CCB0001 


010212 


103002 




BCC 


BJCB1 


010214 


001401 




BEO 


B I CB1 




010216 


100001 




BPL 


.*4 




810220 


104400 


BJCBlI 


HLT 






010222 


105112 




COMB 


(R2* 


( (R2>»077400, (R5)»100177 


010224 


121215 




CMPB 


( R2A , ( R5 ) 




010226 


001401 




BEO 


.♦4 




010230 


104400 




HLT 






010232 


141512 




BICB 


(R5*,<Rg) 


( (R5) *100177, (R2) *000000, CO0100 


010234 


001002 




BNE 


BICB1A 


010236 


105712 




TSTB 


(R26 




010240 


001401 




BEO 


.♦4 




010242 


104400 


BICB1AI 


HLT 






010244 


000402 




BR 


.♦6 


(RESERVE TWO WORDS FOR DATA 


010246 


000000 




.WORD 


0 


(SOURCE DATA 




DZOKC-C BASIC 11 FAMILY INSTRUCTION EXER 
DZQKCE.P11 



MACYll 27(657) 12-010-76 11(39 RACE 10-18 



012258 222020 
012252 212725 
012256 205765 
012256 105065 
012262 212526 
012262 125066 
010266 .012603 
812266 125063 
010272 210302 
212272 125062 



.WORD 


0 


(OEST DATA 






MOV 


PC»R5 










TST 


-<R5> 










curb 


-CR5) 


)R5 


POINTS 


TO 


OEST ODD BYTE 


MOV 


R5<R4 








CLR0 


-<R(I) 


)R4 


POINTS 


TO 


OEST EVEN BYTE 


MOV 


R4,R3 








CLRB 


*(R3) 


IR3 


POINTS 


TO 


SOURCE 000 BYTE 


MOV 


R3.R2 








CLRB 


-<R2) 


! R2 


POINTS 


TO 


SOURCE EVEN BYTE 



012276 020261 

012276 126112 
010320 111216 
010302 106112 
010324 111213 
010306 106112 
010310 111315 
010312 126112 
010314 106113 
010316 151215 
210320 131512 
210322 001426 
310324 151314 
210326 131413 
210330 281423 
210332 105213 
210334 121314 
310336 001020 
210340 106113 
210342 121315 
210344 001015 
010346 106212 
010350 131214 
210352 001412 
010354 106015 
210356 121415 
210360 001007 
010362 105314 
010364 141214 
210366 001004 
010370 111314 
210372 106213 
*10374 141315 
010376 001401 
210400 104400 
310402 104000 



ICOMMENTS ARE LEAST SIGNIFICANT 4 BITS OF BYTES POINTED TO BY R2.R3 
I R4 . AND R5 RESPECTIVELY AND THE REMAINING BITS ARE 0'S, 

SEC (SET CARRY 







»(R|). 


(R3), 


(R4), 


(R5> 


ROLB 


(REA 


(0881, 


0000, 


0000, 


0000 


MOVB 


( R2A « <R4> 


>8881. 


0000, 


0001, 


0000 


ROLB 


(R2A 


(0010. 


00001 


0801, 


0000 


MOVB 


(R2A> (R9) 


>0810. 


0010, 


0001, 


0000 


ROLB 


(REA 


(0100. 


0018, 


0001, 


0000 


MOVB 


(RSA. (R5) 


(0100, 


0010, 


0001, 


0010 


ROLB 


(REA 


(1000. 


0010, 


0001, 


8010 


ROLB 


(RSA 


>1000. 


0100, 


0001, 


0010 


BISB 


(REA. (RJ> 


(1000. 


0100, 


0001, 


1010 


BITS 


(R5A. (R2> 


(1000, 


0100, 


0001, 


1010 


BEO 


BIN* 








BISB 


(RSA. (R4) 


>1000. 


0100, 


0101, 


1010 


BITS 


(R4A. (R8) 


(1000, 


0100, 


0101, 


1010 


BEO 


BJN1 










INCB 


(RSA 


(1000, 


0101, 


0101, 


1010 


CMPB 


(RSA. <R4) 


(1000, 


0101, 


0101, 


1010 


BNE 


BIN1 






ROLB 


(RSA 


(1000. 


1010, 


0101, 


1010 


CMPB 


(R3A, (RS) 


(1000, 


1010, 


0101, 


1010 


BNE 


0JN1 










ASRB 


( R2A 


(0100. 


1010, 


0101, 


1010 


BITB 


(R2A, (R4) 


(0100, 


1010, 


0101, 


1010 


BEO 


BIN1 










RORB 


(RSA 


(0100, 


1010, 


0101, 


0101 


CMPB 


(R4A. (R5> 


10100, 


1010, 


0101, 


0101 


BNE 


BIN! 










DECS 


(R4A 


10100. 


1010, 


0100, 


0101 


BICB 


(REA. (R4) 


(0100, 


1010, 


0000, 


0101 


BNE 


BIN1 










MOVB 


(RSA. (R6) 


(0100, 


1010, 


1010, 


0101 


ASRB 


(RSA 


(0100, 


0101, 


1010, 


0101 


BICB 


(RSA. (R?) 


(0100, 


0101, 


1010, 


0101 


BEO 


t-4 











BIN1S HLT 

SCOPE 



010404 010405 

210406 012715 000001 



(CHECK BINARY WORD QPS USING ADDRESS MODE 2*4 

MOV R4.R5 (SIT DESTINATION REGISTER 

MOV #1,4R5) 



OZOKC-C BASIC 11 FAMILY 
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MACYll 
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0ZQKCE.P11 










210412 


012712 


177777 




MOV 


#-l?(R2> 




210416 


000257 






CCC 






*10420 


200262 






SEV 






210422 


062225 






ADO 


(R2A-, (R5)- 


( (Rg) 5177777, (R5> 4000000, CC4 0101 


210424 


103002 






BCC 


AD02 


210426 


102401 






BVS 


AD02 




010432 


001401 






BEO 


,-4 




010432 


104400 




AD02 i 


HIT 






010434 


000262 






SEV 




(SIT V 


810436 


024527 


000001 




CMP 


•(R5> 


( (R?)s000000. CC*1001 


210442 


103032 






BCC 


CMP2 


210444 


102401 






BVS 


CMP2 




210446 


100401 






BMI 


, *4 




210450 


104400 




CMP2 ! 


HLT 






010452 


054225 






BIS 


-(R2>,(»5>- 


( (R2! *177777, (R5> *177777 ,CC#1001 


010454 


103001 






BCC 


BIS2 


010456 


100401 






BMI 


,*4 




010460 


104400 




BIS2> 


HLT 






010462 


000277 






sec 






010464 


000244 






CLZ 






210466 


162245 






SUB 


(R2A-, » ( R5 ) 


( (R?)*177777, (R5)> 000000, CC«0100 


010470 


103402 






BCS 


SUB? 


810472 


102401 






BVS 


SUB2 




010474 


001401 






BEO 


, -4 




010476 


104400 




SUB2 ( 


HLT 






210500 


005442 






NEC 


-(R2> 


>(R2)*000001 


010502 


005115 






COM 


(R5A 


( (R5)*177777 


210504 


000277 






see 




210506 


000250 






CLN 






010510 


042225 






BIC 


( R2A- , < R5 ) * 


MR2)s000001,(R5) #177776, CO#1001 


210512 


103003 






BCC 


BIC2 


010514 


102402 






BVS 


BJC2 




810516 


001401 






BEO 


B I C2 




810520 


100401 






BM! 


, *4 




810522 


104400 




BIC2t 


HLT 






010524 


012742 


125252 




MOV 


#125252’, '-(R2) 




210530 


012245 






MOV 


(R2A*,»(R5) 




210532 


005125 






COM 


(R5A* 


( (R?)*052525 


810534 


000262 






SEV 




010536 


034245 






BIT 


-<N2),*(R5> 


1 ( N2 ) *125252 , (R5) #052525, CC#01?1 


010540 


103002 






BCC 


BJT2 


010542 


102401 






BVS 


BJT2 




810544 


001401 






BEO 


, -4 




010546 


104400 




BIT2( 


HLT 






010550 


000262 






SEV 






010552 


052225 






BIS 


(R2A-, <R5)* 


»(R?)»125252, (R5)#1F7777, GC«10?i 


810554 


103002 






BCC 


BJS2A 


210556 


102401 






BVS 


BJS2A 




010560 


100401 






BMI 


■ *4 






OZQKC-C SASIC 11 FAMILY 


INSTRUCTION EXER, MACYll 


27(657) 12-DEC- 


74 11139 PAGE 10-12 


OZQKCE.Pll 








010962 


104400 




BIS2A i HUT 






010964 


042749 


125252 


SIC 


#125252 J-TR5 ) 


MR9)*052525 


010970 


005125 




COM 


(R54* 


l(R5>*125252 


010972 


024245 




CMP 


• ( R2 > , » ( R5 ) 


010974 


001401 




BEQ 


< *4 




010576 


104400 




HUT 






010600 


005012 




CLR 


<R2» 




010602 


005122 




COM 


( R24* 


! ( R8) *177777 


010604 


162742 


000001 


SUS 


#li-(R2) 


( tR2)*177776, CCH000 


010610 


103422 




BCS 


SUB2A 


010612 


102401 




BVS 


SUB2A 




010614 


100401 




BMJ 


• *4 




010616 


104400 




SUB2A t HLT 






010620 


104000 




SCOPE 






010622 


010702 




MOV 


PC< R2 


(GET CURRENT PC 


010624 


010205 




MOV 


R2,R5 


(MOVE TO R5 


010626 


124245 




III CMPB 


»(R2)»-(R5) 


(COMPARE ALL PREVIOUS MEMORY ADORESSES 


010630 


001401 




BEQ 


i*4 


010632 


104400 




HLT 




(ERROR! 


010634 


020237 


001010 


CMP 


R2,P#FR8TAO 


(CHECK for LOW LJMJT 


010640 


001372 




BNE 


IS 


010642 


104000 




SCOPE 












icheck binary 


byte OPS USING ADDRESS MODES 2 « 4, 


010644 


000402 




BR 


i *6 


(RESERVE TWO WORDS 


010646 


000000 




.WORD 


0 


(SOURCE DATA 


010650 


000000 




.WORD 


0 


(DESTINATION DATA 


010652 


010703 




MOV 


PC|R3 


010654 


005743 




TST 


-<R3> 




010656 


112743 


000200 


MOVB 


#200 » * ( R3 > 




010662 


112743 


000377 


MOVB 


#377, -(R3> 


( (R3)*100377 


010666 


010304 




MOV 


RS.R4 


010670 


112744 


000177 


MOVB 


#177, -<R4) 




010674 


112744 


000000 


MOVB 


#0,-!R4( 


f !R4)*077400 


010700 


001401 




BED 


t *4 




010702 


104400 




HLT 






010704 


152324 




8 1 SB 


( R34* , (R4 ) * 


) (R3>*100377, (R4)g077777 


010706 


100401 




BMJ 


.*4 




010710 


104400 




HLT 






010712 


122324 




CMPB 


( R3** , ( R4 > * 




010714 


103402 




BCS 


CMPB2 




010716 


102001 




BVC 


CMPB2 




010720 


100001 




BPL 


,*4 




010722 


104400 




CMP82 | HLT 






010724 


000261 




SEC 






010726 


134344 




8 ITS 


-(R3) .-(R4) 




010730 


103002 




BCC 


BITB2 




010732 


102401 




BVS 


B J TB2 





BASIC 11 FAMILY 
Pll 


INSTRUCTION 


EXER, 


MACYll 


27(657) 12-DEC. 


010734 


001401 






BEQ 


,*« 


010736 


104400 




B I TB2 ( 


HLT 




010740 


000244 






CUE 




010742 


144344 






BICB 


-<R3>,-(R4) 


010744 


001401 






BEQ 


, *4 


010746 


104400 






HLT 




010750 


104000 






SCOPE 










ICHECK 


BINARY 


WORD OPS USING ai 


010752 


000404 






BR 


2$ 


010754 


000000 






.WORD 


0 


210756 


000000 






.WORD 


0 


010760 


000000 






.WORD 


0 


010762 


000000 






, WORD 


0 


010764 


010701 




2$! 


MOV 


PC.R1 


010766 


010100 






MOV 


Rl,R0 


010770 


024040 






CMP 


-(R0) ,-(R0> 


010772 


010005 






MOV 


R0.R5 


010774 


024545 






CMP 


-(R5),-(R5) 


010776 


010015 






MOV 


R0,fR5) 


011000 


010502 






MOV 


R5,R2 


011002 


010004 






MOV 


R0,R4 


011004 


005740 






TST 


- ( R0 ) 


011006 


010003 






MOV 


R0,R3 


011010 


010042 






MOV 


R0,-fR2> 


011012 


005013 






CLR 


(R3A 


011014 


005014 






CLR 


(R44 


011016 


000277 






see 




211020 


000244 






CLE 




011022 


163235 






SUB 


»(R2>+,»(R5>* 


011024 


103402 






BCS 


SU83 


011026 


102401 






BVS 


SU83 


011030 


001401 






BEQ 


,♦4 


011032 


104400 




SUB3 : 


HLT 




011034 


052752 


100000 




BIS 


#100000',P-<R2) 


011040 


062755 


000001 




ADD 


#1,*-(R5) 


011044 


163235 






SUB 


P(R2)*,9(R5)* 


011046 


103002 






BCC 


SgBSA 


011050 


102001 






BVC 


SU93A 


011052 


100401 






BMI 


■ *4 


011054 


104400 




SUB3A( 


HLT 




211056 


005414 






NEO 


!R4* 


011060 


035255 






BIT 


9- (R2) , ?» ( R5 ) 


011062 


001401 






BEQ 


■ *4 


011064 


104400 






HLT 




011066 


023235 






CMP 


#(R2 ) ♦ , 6 ( R5> * 


011070 


102401 






BVS 


,♦4 


011072 


104400 






HLT 




011074 


00515* 






COM 


•- ( R2 ) 


011076 


000257 






CCC 





U139 PAGE 10-13 



I (R3J-100377. (R4)*077400 



JRES5 MODES 3 « 5, 

(RESERVE SPACE FOR DATA AND ADDRESSES 
(CONTAINS AOORESS OF SOURCE DATA 
(CONTAINS AOORESS OF DEST DATA 
(CONTAINS SOURCE OATA 
(CONTAINS DEST OATA 

(SET SCOPE PTR 
(ADJUST R0 

(R3 POINTS TO 0E5T OATA 
(SUS 4 FROM R5 

IRS POINTS TO ADDRESS OF OEST OATA 

IR4 POINTS TO BIST DATA 

IR3 POINTS TO SOURCE DATA 
(R2 POINTS TO AOORESS OF SOURCE DATA 
(PRESET SOURCE OATA 
(PRESET OEST DATA 



( !R3) *000000, (R4) *000000 , CCI0100 



( <R3)*100000 
I (R4M000001 

( (R?)=100000, (R4 ) *100001 | CC*1011 



I (R4)*077777 

( !R3»=100000, (R4)»077777 




DZQKC-C SASIC 11 FAMILY 
DZOKCE.PU 

011100 063255 
011102 102001 
011104 100401 
011104 104400 
011110 000241 
011112 049235 
011114 103001 
011114 100401 
011120 104400 

011122 003155 
011124 023235 
011124 001401 
011130 104400 
011132 104000 



011134 000404 
011134 000000 

011140 000000 

011142 000000 
011144 000000 
011144 000000 
011150 000000 

011152 010700 
011154 024040 
011154 010003 
011160 010305 
011162 005743 
011164 010043 
011166 005213 
011170 010043 
011172 010304 
011174 005740 
011176 010044 
211200 005214 
011202 010044 

011204 000261 
011204 012734 
011212 112734 
011216 115433 
011220 115433 
011222 103401 
011224 104400 
011224 022715 
011232 001401 
011234 104400 
011236 024343 
011240 153433 
011242 153433 
011244 022715 
211250 001401 



ozokc-c basic ii family 

DZOKCE . Pll 

011252 104400 

011254 145453 

011256 145453 

011260 133433 

011262 001002 
• 211264 135433 

011266 001001 
011270 104400 

011272 123453 

011274 001002 

011276 123453 

011300 001401 

011302 104400 

011304 104000 



&11306 000402 
011310 000000 
211312 000000 

211314 013702 
011320 010205 
011322 005065 
011326 012762 
011334 056265 
011342 006362 
011346 006362 
011352 103370 
011354 022765 
011362 001401 
011364 104400 
011366 012762 
011374 046562 
011402 036265 
011410 001401 
011412 104400 
011414 006365 
011420 026265 
011426 001401 

411430 104400 
011432 000257 
011434 066265 
011442 103002 
211444 102001 
011446 100001 
011450 104400 

011452 006362 
011456 166265 
011464 103401 
011466 001401 
211470 104400 



INSTRUCTION 


EXER, 


MACY11 


27(657) 12-DCC 


•74 UI39 PAGE 10-14 






ADO 


*(R2)*.»*(R5) 








BVC 


AOD3 








BMJ 


.*4 






A0D3I 


HLT 










SEC 










BIC 


• -IR2) , p(RS)* 


l(R3)»0 77 777, (R4)» 100000 






see 


BIC3 








BMI 


, *4 






BIC3I 


HLT 










COM 


• - (R5 ) 


( ( R4 ) *077777 






CMP 


* ( R2 ) + . P < R5 > * 


1 (R3)«=077777, !R4)*077777 






BEO 


.*4 








HLT 










SCOPE 








(CHECK 


BINARY 


byte OPS USING ADDRESS MOOES 3 « 5. 






BR 


IS 


(RESERVE SPACE FOR ADDRESSES S DATA 






.WORD 


0 


(CONTAINS ADDRESS OF SOURCE DATA (EVEN BYTE) 






.WORD 


0 


(CONTAINS ADDRESS OF SOURCE DATA (ODD BYTE > 






.WORD 


0 


(CONTAINS ADDRESS OF OEST DATA (EVEN BYTE) 






.WORD 


0 


(CONTAINS ADDRESS OF QEST DATA lODD BYTE) 






.WORD 


0 


(CONTAINS SOURCE DATA 






• WORD 


0 


(CONTAINS DEST DATA 




1*1 


MOV 


PC«R0 








CMP 


*(R0J ,»(R0> 


(R0*ADDRCSS OF OEST DATA 






MOV 


R0.R3 


IR3 " " 






MOV 


R3.R5 


IRS » " 






TST 


»{R3) 


(SUB 2 FROM R3 






MOV 


R0#-(R3) 


(R3 POINTS TO ADDRESS OF OEST DATA 






INC 


(R3* 


JQDO BYTE 






MOV 


R0.-IR3A 


(EVEN BYTE 






MOV 


R3iR4 








TST 


• ( R0 ) 


(R0*ADORESS of SOURCE DATA 






MOV 


R0.-(R4» 


(R4 POINTS TO AOORESS OF SOURCE OATA 






INC 


(R4A 


(ODD BYTE 






MOV 


R 0 1 • ( R 4 > 


(EVEN BYTE 






SEC 




(SET CARRY 


177001 




MOV 


#179001 , P ( R4 ) * 




000200 




MOVB 


#200.P(R4>* 


(SOURCE DATA*100001 






MOVB 


• - ( R4 ) , P( R3 ) * 








MOVB 


*-<R4) ,»(R3)* 


(DEBT DATA*000600 






BCS 


.*4 








HLT 




(ERROR! MOV DOES AFFECT e BJT IN PSW 


000600 




CMP 


*600. ( R3 ) 


(CHECK OEST DATA 






BEO 


,*4 








HLT 




(ERROR! INCORRECT RESULT 






CMP 


«{R3> ,-<R3> 


(POINT R4 BACK TO EVEN BYTE 






BISB 


P(R4)*,p(R3)* 








BISB 


P{ R4 ) ♦ , P ( R3 ) * 


(DEBT DATA1100601 


100601 




CMP 


#100601, (R5) 


(CHECK RESULT 






BEO 


.*4 





INSTRUCTION EXER. MACY11 07(657) 12-DEC-74 »|39 PACE 10-15 



HLT (ERROR! INCORRECT OEST DATA AFTER BISB 

BICB *-(R4) ,*-(R3) 

B1CB P.(R4),p.CR3> 

BITS * ( R6 ) ♦ i •( R3 ) * 

BNE B I TB3 

81 TB P.(R4),p(R3)* 

BNE ,*4 

8 1 TB3 1 HLT 

CMPB P(R6>*,p.(r3) 

BNE CMPB3 

CMPB # { R4 ) ♦ , P« ( R3 ) 

BEO ,*4 

CMPB3 I HLT 

SCOPE 



ICHECK 

SOATAi 

ODATAJ 



BINARY OPS USJNS ADDRESS 
BR i*6 

.WORD 0 
.WORD 0 



MODE 6 

(RESERVE TWO LOCATIONS 
J RESERVED FOR SOURCE DATA 
(RESERVED FOR DESTINATION DATA 



001004 






MOV 


•PFACTORi R2 d 








MOV 


R2.R5 1 


011312 






CLR 


0D*TA(5> II 


000001 


011310 




MOV 


#1 • SOATA ( 2 > 1 


011310 


011312 


1SI 


BIS 


SDATA(2),0DATA(5) 


011310 






ASL 


SDATA ( 2 A 


011310 






ASL 


SOATAI 2 > 








BCC 


IS 


052525 


011312 




CMP 


#52525, D0ATAI5) Ji 








BEQ 


.*4 








HLT 


II 


177777 


011310 




MOV 


#»1» SDATA ( 2 ) 


011312 


011310 




BIC 


DOATA ( 5) i SDATA ( 2 ) 


011310 


011312 




BIT 


SDATA ( 2 A , DDATA ( 5 ) 








BEO 


.*4 








HLT 


II 


011312 






ASL 


0DA|A(5> II 


011310 


011312 




CMP 


SQAIA (2 A , DDATA (5 ) 








BEQ 


.*4 








HLT 


II 








CCC 




011310 


011312 




ADC 


S0A?A(2),DDATA(5> 








Bee 


A0D6 








BVC 


A006 








BPL 


, *4 






A006I 


HLT 




011310 






ASL 


SDATA ( 2 A )! 


011310 


011312 




SUB 


SDATA ( 2 A i DDATA (5 ) 








BCS 


S |J B 6 








BEO 


, + 4 






SUB6I 


HLT 





SET RELOCATION FACTOR AND USE AS AN 
INQEX VALUE TO POINT TO DATA 
PRESET DESTINATION DATA 
THIS ROUTSJNE PUT A 1 BIT INTO EVERY 

(OTHER Bit POSITION JN THE OEST- 
JINATION ADDRESS (52525) 



check result 

ERRORI INCORRECT RESULT 

ISOURCE DATA«125252 



ERRORI SIT INST FAIUEO 
DOATA*125252 



(ERRORI CMP INST FAILED 




020KC-C BASIC 11 FAMILY INSTRUCTION EXER, MACYH 27(657) 12-DEC-7A U!39 PACE 10-16 

OZOKCE i Pll 



011472 


112700 


000377 




MOVB 


011476 


010062 


011310 




MOV 


011502 


012765 


177777 


011312 


MOV 


011510 


166500 


011312 




SUB 


011514 


001401 






BEO 


211516 


104400 






HLT 


011520 


066265 


011310 


011312 ISi 


ADO 


011526 


006362 


011310 




ASL 


011532 


005162 


011310 




COM 


011536 


036265 


011310 


011312 


BIT 


011544 


001401 






BEO 


211546 


104400 






HLT 


011550 


005162 


011310 




COM 


011554 


026265 


011310 


011312 


CMP 


011562 


001401 






BEO 


011564 


104400 






HLT 


011566 


026200 


011310 




CMP 


011572 


001352 






BNC 


011574 


104000 






SCOPE 



#37*iR 0 !R0il77777 (MOVB XR EXTENDS SIGN) 

R0 « SDATA ( 2 ) 

#•1 i ODATA ( 5 ) 

DDAIA ( 5 > * R0 

,♦4 

S0A?A ! 2 >i DDATA ( 5 ) 

SDATA<2> 

SQ ATA ( 2 ) 

SDA|A(2),DDATA(5) 

i ♦ 4 

SDATA < 2A 

SDATA(2>,DDATA(5) 

,♦4 

S0ATA(2»,F?0 

is 



(CHECK BINARY byte ops USING ADDRESS MODE 6 

J NOTE I SOATABI 2) < AND 0DATaB(4) REFERENCE EVEN BYTE OF SOURCE « DEST DATA 
IANO SDATAB(S). ANO D0ATAB(5) FEFERENCE ODD BYTE OF SOURCE 6 DEBT DATA 



011576 


013702 


001004 




MOV 


•((FACTO*, R2 (GET INOEX VALUE 




011602 


010204 






MOV 


R2iR4 (Rg FOR SOURCE EVEN BYTE INDEX 


, R4 FOR 


011604 


010403 






MOV 


R4(R3 (DEBT ODD BYTE, R3 FOR SOURCE 


EVEN 


211606 


005203 






INC 


R3 (AND R5 TOR DEST ODD BYTE 




011610 


010305 






MOV 


R3,R5 




011612 


000261 






SEC 


(SET CARRY 




011614 


012762 


125252 


011740 


MOV 


*125252, SDATAS ( > 




211622 


112763 


177125 


011740 


MOVB 


#177129, SDATA8(3) (SOURCE DATA = 052652 




211630 


016264 


011740 


011742 


MOV 


SDATABO) iD0ATAB<4) 




211636 


052764 


125125 


011742 


BIS 


#125125 |DDaTAB(4) (DEST DATA 5 177777 




211644 


136263 


011740 


011740 


BITB 


SDATABU) ,S0ATAB<3) 




011652 


001401 






BES 


, *4 




211654 


104400 




B I TB6 t 


HLT 






211656 


146264 


011740 


011742 


BICB 


SDATAB(i) ,DDATAB(4) 




211664 


103401 






BCS 


, *4 




011666 


104400 






HLT 


(ERROR MOV ,BIS,B!T|BIC DO NOT 


affect ic 


211670 


126364 


011740 


011742 


CMPB 


SDA|AB(3),DDATAB(4) 




211676 


001401 






BEO 


■ *4 




011700 


104400 






HLT 






211702 


146365 


011740 


011742 


BICB 


SDATAB(3),DDATAB(5) 




211710 


126265 


011740 


011742 


CMPB 


SDATAB(8),D0ATAB<5) 




211716 


001401 






BEO 


, *4 




211720 


104400 






HLT 






211722 


136564 


011742 


011742 


BITB 


DOATAB(J>,DOATAB<4) 




211730 


001401 






BEO 


• *4 




011732 


104400 






HLT 







020KC-C BASIC 11 FAMILY INSTRUCTION EXER, MACY11 27(657) 12-DEC-74 ll!39 PAGE 10-17 

02QKCE , Pll 



011734 


104000 








SCOPE 






011736 


000406 








BR 


UB7 


(RESERVE TWO WORDS 


011740 


000000 






SDATABI 


.WORD 


0 


(RESERVED FOR SOURCE DATA 


011742 


000000 






ODATABI 


.WORD 


0 


(RESERVED FOR DEST DATA 










ICHECK 


BINARY 


WORD DPS USING ADDRESS MODE 7 










I RgsADORESS OF 


SOURCE DATA, AND 


R3s ADDRESS OF DEST DATA 


011744 


000000 






SBIN7I 


.WORD 


0 


(CONTAINS ADDRESS OF SOURCE DATA 


011746 


000000 






0BIN7 ! 


.WORD 


0 


(CONTAINS ADDRESS OF DEST DATA 


011750 


000000 








.WORD 


0 


(CONTAINS SOURCE DATA 


011752 


000000 








.WORD 


0 


(CONTAINS DEST DATA 


011754 


010700 






UB7 ! 


MOV 


PC»R0 




011756 


024040 








CMP 


-<R«),-(R0> 




011760 


010002 








MOV 


R0.R2 




011762 


024242 








CMP 


-(R2) ,-<R2) 




011764 


010012 








MOV 


R0, t R2 ) 




011766 


010203 








MOV 


R2,R3 




011770 


024043 








CMP 


-(R0),-(R3) 




011772 


010013 








MOV 


R 0 , 4 R 3 ) 




211774 


000261 








SEC 






011776 


012777 


100000 


177740 




MOV 


#100000, »SBIN7 


(SOURCE DATA » 100000 


012004 


017777 


177734 


177734 




MOV 


•S0IN7,0OBIN7 


(DEST OATA t 100000 


012012 


103001 








8CC 


MOV? 


012014 


100401 








BM J 


,*4 




012016 


104400 






M0V7I 


HLT 






012020 


006377 


177722 






ASL 


•OBIN7 


(DEST OATA • 000000 


012024 


102001 








BVC 


■ *4 




012026 


001401 








BEQ 


. *4 




012030 


104400 








HLT 






012032 


027777 


177706 


177706 




CMP 


•SB4N7 ,fDBlN7 


( <Rg)*100000, (R3>«000000 


012040 


103402 








BCS 


CMP? 




012042 


102401 








BVS 


CMP7 




012044 


100401 








BM! 


.*4 




012046 


104400 






CMP7I 


HLT 






012050 


167777 


177670 


177670 




SUB 


•SB1N7 , #DBl N7 


1 ( Rg ) =100020 , (R3 ) #100000 


012056 


103003 








see 


SUB7 




012060 


102002 








BVC 


SU87 




012062 


001401 








BEO 


SUS7 




012064 


100401 








BM! 


.*4 




012066 


104400 






SUB7I 


HLT 






012070 


006277 


177650 






ASR 


•SBIN7 


1 (Rg)«14 0000 


012074 


067777 


177644 


177644 




ADO 


•SB4N7 , 0DBIN7 


I <RgJ*140000, (R3)»040000 


012102 


103003 








BCC 


ADD7 


012104 


102002 








BVC 


ADD? 




012106 


001401 








8EQ 


add? 




012110 


100001 








BPL 


.*4 




012112 


104400 






ADD7J 


HLT 








DZQKC-C BASIC 11 FAMILY INSTRUCTION EXER, 
DZQKCE.P11 



012114 


047777 


177624 


177624 


BIC 


012122 


001401 






BEQ 


012124 


104400 






HLT 


012126 


057777 


177612 


177612 


BIS 


012134 


100401 






BMI 


012136 


104400 






HLT 


012140 


027777 


177600 


177600 


CMP 


012146 


001401 






BEQ 


212150 


104400 






HLT 


012152 


104000 






SCOPE 



MACYll 27 (457) 12-0EC-74 lit 39 PACE 10-18 



P$BIN7,*0S1N7 I <R2)®140000, (R3)«000000 

i*4 



•SB1N7 ,f08tN7 J (R2 1*140000, (RJ) *140000 

i*4 



•SB*N7,#0BIN7 

,*4 



ISOME MISCELLANEOUS OPERATION INVOLVING THE PC 



012154 

012156 

012162 

£12164 

012166 

012170 

212172 

012174 

212176 

012200 

L12202 

012206 

212212 

212216 



012220 

012224 



005000 

005067 

010707 

120707 

030707 

060007 

105707 

005507 

021007 

131007 

062707 

023707 

133707 

000240 



163707 

063707 





CLR 


R0 


000072 


CLR 


IS 




MOV 


PC, PC 




CMPB 


Pc, PC 




BIT 


PC, PC 




ADO 


R0,PC 




TSTB 


PC 




ADC 


PC 




CMP 


( R0I , PC 




8 1 T9 


( RBI , PC 


000000 


ADD 


#0,PC 


001004 


CMP 


•RFACTOR , PC 


001004 


BITB 


P#F ACTOR , PC 




NOP 





001024 

001004 



ITHE NEXT TWO INSTRUCTION CAUSE THE PROGRAM TO JUMP TO THE UNRELOCATED 
ICODE AND TO RETURN ON THE FOLLOWING INST <IF THE CODE J$ RELOCATED) 



SUB 

ADO 



•REACTOR, PC 



iJUMPS TO UNRELOCATED CODE 



012230 


000240 




NOP 






212232 


024607 




CMP 


-<SP),PC 




*,12234 


132607 




BITB 


< SPA* , PE 




-12236 


026707 


000012 


CMP 


ISiPC 




012242 


166707 


000006 


SUB 


1$,PC 




012246 


046707 


000002 


BIC 


t$,PC 




012252 


000401 




8R 


, *4 


J8RANCH OVER IS 


-12254 


000000 




1SI 0 






012256 


104000 




SCOPE 






012260 


010702 




MOV 


PC,R2 




012262 


062702 


000012 


ADD 


#12, R2 




012266 


012707 


001132 


MOV 


#RELOC , PC 


;gq relocate program cqoe 


012272 


000240 




NOP 




) PROGRAM RETURNS HERE+2 








Jlllllllllllll 


LAST ADDRESS 


OF CODE TO BE RELOCATED 11111.111111 








12222222222222 


FIRST ADDRESS 


TO BE RELOCATED 222222222 


012274 


010700 




REL2: MOV 


PC,R0 


IGET PC 


L12276 


005740 




TST 


«(R0) 


}R0 CONTAINS THE ADDRESS OF REL* 


L12300 


010037 


001010 


MOV 


R0,P#FRSTAO 


;SAVE 



OZQKC-C BASIC 11 FAMILY INSTRUCTION EXER, 
DZQKCE.Pll 



MACYll 27(657) 12-0EC-74 11S39 PAGE 10-19 



L12304 


010700 






MOV 


PC , R0 


;get current pc 


L12306 


162700 


012306 




SUB 


#, ,R0 


! SUBTRACT RELOCATION FACTOR 


012312 


010037 


001004 




MOV 


R0,P#FACTOR 


iSAVE RELOCATION FACTOR 


012316 


010701 






MOV 


PC.R1 


f SET NEW SCOPE PTR 








ICHECK 


BINARY 


BYTE OPS using 


ADDRESS MODE 7 


012320 


000406 






BR 


BINB7 


JRESERVE SPACE FOR ADDRESSES 4 DATA 


-12322 


000000 




SBINB7I 


.WORD 


0 


f CONT A INS ADDRESS OF SOURCE EVEN BYT| 


-12324 


000000 






.WORD 


0 


iCONTAINS ADDRESS OF SOURCE ODD BYTE 


-12326 


000000 






.WORD 


0 


icontains address of DEST EVEN BYTE 


012330 


000000 






.WORD 


0 


ICONTAINS ADDRESS OF DEST 000 BYTE 


012332 


000000 




DBINB7I 


.WORD 


0 


ICONTAINS SOURCE DATA 


012334 


000000 






.WORD 


0 


(CONTAINS OEST DATA 


012336 


010700 




BINB7 i 


MOV 


PC.R0 




012340 


024040 






CMP 


»(R0) ,-<R0) 


)R0 * ADDRESS OF OEST DATA 


012342 


010060 


177772 




MOV 


R0,-6(Ri) 


)L0AD ADORES OF OEST EVEN BYTE BATA 


012346 


010060 


177774 




MOV 


R0,-4(R0) 




012352 


005260 


177774 




INC 


-4<R0) 


)LOAQ ADDRESS OF OEST ODD BYTE DATA 




DZQKC-i 

OZQKCE 



DZOKC-i 

020KCE 



: BASIC 11 FAMILY INSTRUCTION EXER, 
Pll 



MACYll 27(657) 12-DIC-74 1K39 PACE U 



012356 

012360 

012364 

012370 



005740 

010060 

010060 

005260 



177770 

177772 

177772 



TST •< R0 ) )R0»AOQRESS 0 F SOURCE DATA 

MOV R0I-10IR0) )LOAO ADDRESS or SOURCE EVEN BYTE OATA 

MOV R0i-6(R0) 

INC -6<R0! (LOAD ADDRESS OF SOURCE ODD BYTE DATA 



012374 005002 

012376 012703 000002 

012402 012704 177774 

012406 012705 177776 



CLR R2 

MOV #2#R3 

MOV #-4,R4 

MOV #-2>R5 



(SET INDEX REGISTERS 

)PSBINB7<2) |#SBJNB7(3> REFERENCE EVEN « 
s OOO BYTE SOURCE DATA! »D8lNB7(4) )#0BJNB7(5) 
(REFERENCE DEST EVENS ODD BYTE DATA 



012412 


005020 


012414 


005010 


012416 


013746 001004 


012422 


061602 


012424 


061603 


012426 


061604 


012430 


062605 



CLR 


<R0»* 


(PRESET SOURCE DATA 


CLR 


<R0* 


(PRESET OEST OATA 


MOV 


*#FACT0R,-(SP) 


(GET RELOCATION FACTOR 


ADO 


( SPA i R2 


(AND ADD TO INDEX VALUES 


ADO 


(SPA * R 3 


AOD 


(SPi.R* 




ADD 


( SPA* i R5 





012432 112773 177777 012322 

012440 132772 000377 012322 

012446 001401 

012450 104400 



MOVS #-l # #SB I NB7 C 3 ) (SRC DATA « 177400 

BITS #37?,*SBINB7<2) (CHECK THAT EVEN BYTE WAS NOT AFFECTED 

BEO ,*4 (BY M0V8 INSTRUCTION 

WLT 



012452 157374 012322 012332 

012460 105274 012332 

012464 001401 

012466 104400 



BISB #$BIN87(3!,PDBJNB7(4) 

INCB RQ81NB7 ( 4) (CHECK THAT BIS SET ALL BITS 

BEO ( *4 

HLT 



012470 105375 
012474 005274 
012500 127375 
012506 001401 
012510 104400 



012332 

012332 

012322 012332 



DECS •DBINB7<5> (DEST OATA * 177400 
INC *DBiNB7(4) (DEST DATA » 177401 
CMPB RSBINB7(3),»DBINB7(5) 

BEO .*4 
HLT 



012512 


147375 


012322 


012332 


BICB 


»SBJNB7!3),*D8INB7(5! 


012520 


001401 






BEO 


i*4 


012522 


104400 






HLT 




012524 


105073 


012322 




CLRB 


PSSINB7 (3) (SRC DATA » 000000 










JTHIS ROUTINE 


SETS ALL BITS IN THE SOURCE ODD BYTE BY 










(THE DEST EVEN 


BYTE INTO THE SOURCE QOO BYTE 


012530 


157473 


012332 


012322 


BIS7! BISB 


•DBINB7<4) ,iSBJNB7(3) 


212536 


106174 


012332 




ROIB 


#DBINB7{4> 


012542 


103372 






ace 


B I S7 


012544 


022772 


177400 


012322 


CHP 


#177400, »SBINS7<2> (CHECK RESULT 


012552 


001401 






BEO 


i*4 


012554 


104400 






HLT 




012556 


000372 


012322 




SWAB 


•58INB7<2> (SRC DATA ■ 000377 


012562 


112775 


000200 


012332 


MOVB 


#200.*O81NB7(5) (OEST DATA * 100000 


012570 


147572 


012332 


012322 


BIC7: BICB 


•081NB7(5),#SBJNS7(2) 


012576 


106075 


012332 




R0R8 


#Q81NB7{5) 
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012602 


103372 








BCC 


BIC? 




012604 


005772 


012322 






TST 


#SSANB7<2) 




012610 


001401 








BEO 


.*4 




012612 


104400 








HLT 






012614 


104000 








SCOPE 






012616 


012702 


000001 




OAERRl 


MOV 


#1»R2 


(LOAD R2 WITH ODD # 


012622 


010703 








MOV 


PC.R3 




012624 


000401 








BR 


i*4 


(RESERVE SPACE FOR A WORO 


012626 


000000 








.WORD 


0 


(WILL CONTAIN AN ODD ADDRESS 


012630 


005723 








TST 


(R3A* 


(STEP R3 TO POINT TQ WORD ABOVE 


012632 


010313 








MOV 


R3.4R3) 




012634 


005213 








INC 


(R3A 


(ANO MAKE ODD 


012636 


012737 


012764 


000004 




MOV 


#1S)’##E!»RVEC 


(SET 000 AOORESS « RESERVED INSTRUCTION 


012644 


063737 


001004 


000004 




ADO 


•#FACTORi»#ERRVEC 


012652 


013737 


000004 


000010 




MOV 


•#£RRVECiP#RESVEC (TO TRAP TO IS BELOW 


012660 


000277 








see 




(SET ALL CC'S 


012662 


160212 








SUB 


R2i<R2) 




012664 


104400 








HLT 






012666 


060222 








ADO 


R2.<R2)t 




812670 


104400 








HLT 






012672 


006342 








ASL 


*(R2) 




012674 


104400 








HLT 






012676 


106512 








MFPO 


(R2* 


(NOTE! MAY BE RESERVED 


012700 


104400 








HLT 




012702 


170412 








CLRF 


<R2i 




012704 


104400 








HLT 






012706 


042202 








BIC 


(R2A* i RS 




012710 


104400 








HLT 






012712 


164202 








SUB 


*(R2).Ri 




012714 


104400 








HLT 






012716 


155202 








BISB 


»-<R2> ,82 




012720 


104400 








HLT 






012722 


105532 








ADCS 


P(R2)* 




012724 


104400 








HLT 






012726 


163302 








SUB 


•j(R3}*,R2 




012730 


104400 








HLT 




012732 


005733 








TST 


#( R3 ) * 




012734 


104400 








HLT 






012736 


106533 








MFPO 


• ( R3 ! * 




012740 


104400 








HLT 






012742 


170453 








CLRD 


#-(R3) 




012744 


104400 








HLT 






012746 


137702 


177775 






SI T8 


•i *1 1 R2 




012752 


104400 








HLT 






012754 


105477 


177773 






NEGB 


P,*l 




012760 


104400 








HLT 






212762 


000406 








BR 


2S 




012764 


062716 


000002 




1SI 


AOD 


#2«FSP) 


1ADUUST RETURN PC 


012770 


052766 


000017 


000002 




BIS 


#1772 (SP> 


(SET CONDITION COOES ON RETURN 


012776 


000002 








RTI 
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013000 012706 000 500 2SI 

013004 012737 000006 000004 

013012 012737 000012 000010 

013020 104000 



MOV PSTKPTRi'SP JRESET STACK PTR 

MOV #ERRVEC+2»*#ERRVEC 

MOV #RESV£S*2. »#RE8VEC 

SCOPE 



JCHECK JMP INSTRUCTIONS 



013022 


010700 




MOV 


PC»R0 


013024 


062700 000012 




ADO 


* 1 2 r R 0 


013030 


000277 




SCO 




013032 


000110 




JMP 


(R0A 


013034 


000402 




BR 


t*6 


413036 


000250 




CLN 




013040 


000775 




BR 


<•4 


013042 


103003 




BCC 


JMP1 


013044 


102002 




BVC 


JMP1 


013046 


001001 




BNE 


JMP1 


013050 


100001 




BPl 


i *4 


013052 


104400 


JMPU 


HIT 




013054 


005002 




CLR 


R2 


013056 


010703 




MOV 


PC.R3 


£13060 


000401 




BR 


,*4 


013062 


000000 




.WORD 


0 


013064 


005723 




TST 


(R3A + 


013066 


010313 




MOV 


R3.4R3J 


013070 


010300 




MOV 


R3iR0 


013072 


062713 030022 




ADO 


*22 i ( R3A 


013076 


010300 




MOV 


R3,R2 


£13100 


000133 




JMP 


*(R3) + 


013102 


000402 




BR 


.*6 


013104 


005102 




COM 


R 2 


013106 


000775 




BR 


• -4 


£13110 


005202 




INC 


R2 


013112 


001003 




BNE 


JMP3 


213114 


005720 




TST 


(R0A* 


013116 


020003 




CMP 


R 0 1 R 3 


013120 


001401 




SEO 


i*4 


£13122 


104400 


JMP3 1 


HLT 




£13124 


005002 




CLR 


R2 


013126 


010704 




MOV 


PC.R4 


013130 


010400 




MOV 


R4iR0 


013132 


000402 




BR 


IS 


013134 


005102 




COM 


R2 


013136 


000403 




BR 


2$ 


013140 


022424 


1SI 


CMP 


<R4A*» (R4J* 


013142 


005724 




TST 


< R4A* 


013144 


000144 




JMP 


*(R4) 


£13146 


005202 


21 1 


INC 


R2 


013150 


001003 




BNE 


JMP* 


013152 


022020 




CMP 


(R0A*,(R0)* 


813154 


020304 




CMP 


R0,R4 



J SET ADDRESS FOR JMP INST 
1 SET CC'S 

JUMP INST JUMPS H|R£ 



i ERROR I INCORRECT CCS AFTER JMP 
JSET INDICATOR 

JRISERVE NORO FOR JMP ADDRESS 
JCONTAINS ADDRESS FOR UMP INST 



KR3) IS JMP ADDRESS 
) JUMP TO ADDRESS CONTAINED IN R3 
JCOMPLEMENT INDICATOR 

JCHECK indicator 

JCHECK AUTO-INC R3 

JSET INDICATOR 

JSET UP JMP REGISTER 

JSET UP CHECK REGISTER 

JCOMPLEMENT INDICATOR 



JR4PJMP ADDRESS 
i USE R4 AS ADDRESS 
JCHECK INDICATOR 



JCHECK AUTO-DEC R* 
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013156 


001401 








BEQ 


i*4 




013160 


104400 






JMP4 ) 


HLT 






013162 


010703 








MOV 


PC.R3 




013164 


000401 








BR 


i*4 


JRESERVE WORD for JMP ADDRESS 


£13166 


000000 






1SI 


.WORD 


0 


JCONTAINS JUMP ADDRESS 


013170 


005723 








TST 


(R3A* 




313172 


010313 








MOV 


R3.4R3I 




013174 


062723 


000016 






ADD 


#16. (R3»* 




£13200 


010300 








MOV 


R3.R0 


JLQAD CHECK REGISTER 


013202 


000402 








BR 


3$ 




013204 


005102 






2Ss 


COM 


«2 




013206 


000401 








BR 


4$ 




013210 


000153 






3SI 


JMP 


».(R3> 


J JUMP TO 2* VIA IS ABOVE 


213212 


005202 






4$ ) 


INC 


R2 


JCHECK INDICATOR 


013214 


001003 








BNE 


JMP5 




813216 


005740 








TST 


* ( R0 > 




013220 


B20003 








CMP 


R 0 1 R 3 


JCHECK AJTO-DEC R3 


013222 


001401 








BEQ 


i*4 




8-13224 


104400 






JMP5 J 


HLT 






313226 


000402 








BR 


2J 




013230 


005102 






ISl 


COM 


*2 


JCOMPLEMENT INDICATOR 


013232 


000402 








BR 


3$ 




tl3234 


000167 


177770 




2SI 


JMP 


IS 




013240 


005202 






SSI 


INC 


R0 




013242 


001401 








BEQ 


.*4 




013244 


104400 






JMP 6 1 


HLT 






013246 


012767 


013264 


000020 




MOV 


#1S?7S 


JSET UP JMP ADDRESS 


213254 


063767 


001004 


000012 




ADO 


•#FACT0R,7S 


J ADO RELOCATION factor 


£13262 


000402 








BR 


2S 


JGO TO JMP P7S INST 


013264 


005102 






IS 1 


COM 


*2 


JCOMPLEMENT INDICATOR 


213266 


*90403 








BR 


3 $ 


JGO TO CHECK ROUTINE 


013270 


000177 


000000 




2SI 


JMP 


•7S 


J JMP TO 1$ ABOVE VIA 7S 


013274 


000000 






7$ 1 


.WORD 


0 


JCONTAINS JMP ADDRESS 


213276 


005202 






3 S l 


INC 


*2 


JCHECK INDICATOR 


£13300 


001401 








BEQ 


.*4 




013302 


104400 






JMP7 1 


HLT 






013304 


104000 








SCOPE- 














JCHECK 


JSR INSTRUCTIONS 




813306 


013705 


001004 




JSRTSTl 


MOV 


•pFACTOR . R5 


JGET RELOCATION FACTOR 


813312 


012702 


013344 






MOV 


#3Sv-R2 


JFORM BEST ADRS 


813316 


060502 








ADD 


R5.R2 


JADO RELOCATION FACTOR 


813320 


000277 








SCO 




J PRESET CCS 


813322 


000242 








CLV 






813324 


004512 








JSR 


R5iiR2> 


JGO TO 3S VJA R2 


813326 


005702 






ISt 


TST 


R2 


JCHECK INDICATOR 


813330 


001017 








BNE 


JSRt 


JR2 SHOULO«0 


813332 


023705 


001004 






CMP 


•PFACT0R.R5 


JCHECK THAT RTS R? RESTORED 1 


213336 


001014 








BNE 


JSR1 




013340 


000414 








BR 


JSRJA 


JEXIT TO SCOPE 


013342 


000205 






2St 


RTS 


R5 


J RETURN FROM SUBROUTINE 




OHQKC-C BASIC : 


11 FAMILY 


INSTRUCTION 


EXER, 


MACYll 


27(657) 12-DEC 


•74 Hiss page ii-« 


OZQKCE.Pii 














013344 


103011 




SSI 


see 


JS»* 


.CHECK THAT JSR DID NOT 


013346 


102410 






BVS 


JSR* 




013390 


001007 






BNC 


JSRi 


(AFFECT CC'S 


013392 


100006 






BPL 


JSR1 




013394 


005002 






CtR 


R2 


(CLEAR INDICATOR 


013396 


012704 


013326 




MOV 


#1SJ-R4 


(GET UNRELGCATEO RETURN ADDRESS 


013362 


061604 






ADD 


(SP6.R4 


(ADO RELOCATION FACTOR (OLD R5) 


013364 


020405 






CMP 


R4.R5 


(CHECK THAT OLD R5 WAS PLACED ON THE 


013366 


001765 






BES 


2$ 


(STACK,* THAT NEW R5 CONTAINS RETURN PC 


013370 


104400 




JSRli 


MLT 




(ERROR 1 ABOVE 


013372 


013704 


001004 


JSRIAl 


MOV 


P#FACT0R»R4 


(GET RELOCATION FACTOR 


013376 


005000 






CLR 


R0 


(SET INDICATOR 


013400 


012705 


013420 




MOV 


#1S»R5 




013404 


060405 






ADD 


R4.R5 


(SET UP JSR DEFERRED APRS 


013406 


010502 






MOV 


R5»R2 




013410 


012715 


013436 




MOV 


#5S» (R5) 




013414 


060415 






ADO 


R4.IR5J 


( (R9)*0EST AORS 


013416 


000401 






BR 


21 


(RESERVE WORD FOR ADDRESS 


013420 


000000 




111 


.WORD 


0 


(CONTAINS OEST ADRS FOR JSR 


013422 


004435 




2$! 


JSR 


R4jP(R5>* 


(JSR TO 5S VIA 1* ABOVE 


013424 


005200 




3St 


INC 


R0 


(CHECK INDICATOR 


013426 


001013 






BNC 


JSR3 




013430 


000413 






BR 


JSR3A 




013432 


005100 




4$ 1 


COM 


R0 


(COMPLEMENT INDICATOR 


013434 


000204 






RTS 


4 


(RETURN FROM SUBROUTINE 


013436 


012703 


013424 


5$ l 


MOV 


#3S»R3 


(GET UNRELOCATED RETURN ADDRESS 


013442 


061603 






ADD 


(SPA.R3 


(ADO RELOCATION FACTOR (OLD R4J 


013444 


020403 






CMP 


R4<R3 




013446 


001003 






BNC 


JSR3 




013450 


005722 






TST . 


<R2i* 




013452 


020205 






CMP 


R2,R5 


(CHECK AUTO-INC RS 


013454 


001766 






BEO 


4S 


(GO TO RTS 


013456 


104400 




JSR3i 


HIT 




(ERROR ABOVE 


013460 


013704 


001004 


JSR3A ; 


MOV 


P#F ACTOR «R4 




013464 


010405 






MOV 


R4 1 R5 




013466 


010703 






MOV 


PC.R3 




013470 


000401 






BR 


2$ 




013472 


000405 




III 


BR 


4$ 




013474 


022323 




2S» 


CMP 


<R3A*,(R3>* 




013476 


000277 






see 






013500 


004443 






JSR 


R4.-CR3) 


(GO TO 2* 


013502 


104400 




3$ 1 


HIT 






013504 


000414 






BR 


JSR4A 




013506 


103012 




4$ 1 


BCC 


JSR4 




013510 


102011 






BVC 


JSR4 




013512 


001010 






BNE 


JSR« 




013514 


100007 






BPL 


JSR4 




S13516 


012702 


013502 




MOV 


#3*»RZ 


(GET UNRELOCATED RETURN ADDRESS 


013522 


061602 






ADO 


(SP4.R2 


(ADO RELOCATION FACTOR (OLD R4> 


013524 


020204 






CMP 


R2.R4 


(CHECK THAT CALCULATED RETURN 


013526 


001002 






BNC 


JSR4 


(PC * NEW R4 


013530 


005724 






TST 


(R4»* 
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013532 


000204 








RTS 


R4 




013534 


104400 






JSR4I 


HLT 






013536 


000401 






JSR4AI 


BR 


2$ 




013540 


000405 






ISl 


BR 


3S 




013542 


010700 






2$ I 


MOV 


PC.R0 




013544 


004767 


177770 






JSR 


PC.1S 




013550 


100407 








BM! 


JSR6A 




013552 


104400 








HLT 






013554 


022020 






3 S 1 


CMP 


(R0A*. (R0)» 




013556 


020016 








CMP 


R0.4SP) 


(CHICK THAT RETURN ADDRESS IS ON THE 


013560 


001401 








BEO 


,*4 


(STACK 


013562 


104400 








HLT 






013564 


000270 








SEN 




(SIT N 


013566 


000207 








RTS 


PC 




013570 


104000 






JSR6A | 


SCOPE 














(CHECK 


1 0 T TRAP 


<ANP R0LB/ASL8) 




013572 


012737 


013624 


000020 




MOV 


PIOU.PIJOTVEC 




013600 


063737 


001004 


000020 




ADD 


PpFACTORjPPIOmC | A QO RELOCATION FACTOR 


013606 


000261 








SEC 




(SET CARRY 


013610 


013737 


177776 


000022 




MOV 


•#PSW,*0IOTVEC*2 


iretain current psw on trap 


013616 


005000 








CLR 


R0 


(PRESET R0 


013620 


000004 








IOT 






013622 


000403 








BR 


I0T1A 




013624 


106100 






IOT1 ( 


ROL8 


R0 


(ROTATE R0 


013626 


102376 








BVC 


.-2 


(UNTIL V SETS (R0S200) 


013630 


000002 








RTI 






013632 


106300 






IOT1AI 


ASLB 


R0 


(SHIFT SHOULD SET CARRY 


S13634 


103004 








BCC 


lotts 




013636 


102003 








BVC 


I0T1B 




013640 


001002 








BNE 


I0T1B 




013642 


005700 








TST 


R0 


(R0 SHOULD «0 f* 


013644 


001401 








BEO 


i*4 




013646 


104400 






IOT1BI 


hut 




(ERROR) ROL/ASL FAILEO TO SET CC'S PROPERLY 


013650 


012737 


000022 


000020 




MOV 


*I0?VEC*2.P*JQTVEC IRESTORE IOT TRAP 


013656 


005037 


000022 






CLR 


P#I0TVEe*2 


(VECTOR 


013662 


104000 








SCOPE 














(CHECK 


emt trap 


sequence 




013664 


013746 


000030 






MOV 


PPEMTVEE.-(SP) 


(SAVE SCOPE PTR 


013670 


012737 


013724 


000030 




MOV 


#EMTl,»fEMTVEC 


(SET EMT TRAP VECTOR 


013670 


063737 


001004 


000030 




ADO 


*#F ACTOR, PPEMTVEC (ADD RELOCATION FACTOR 


013704 


000262 








SEV 




(SET V 


013706 


013737 


177776 


0000 32 




MOV 


P#PSW,P0EMTVEC*Z 


(RETAIN CURRENT PSW ON TRAP 


013714 


000265 








♦SE0I5EC 




013716 


104000 








EMT 




(TRAP TO EMT1 


013720 


001433 








BEO 


EMTJC 


(GO TO EMTIO 


013722 


104400 








HLT 




(ERROR! INCORRECT CC'S WERE SET ON RETURN 


013724 


102027 






EMTll 


BVC 


EMTJB 


I’V SHOULO'VI SIT ON EMT TRAP 


013726 


105100 








COMB 


R0 


(R0»000377,CC'Sil00i 


013730 


105500 








ADCB 


R0 


1 R0 » 000000 » CC ' S«0101 


013732 


106000 








RORB 


R0 


(R0s000200,CC'S*1010 
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Z1S734 


102023 






BVC 


013734 


100022 






BPL 


013740 


000257 






CCC 


013742 


105400 






NEG8 


013744 


102017 






BVC 


013746 


100016 






BPL 


013750 


000242 






CLV 


013752 


000261 






SEC 


013754 


105300 






DECS 


013756 


102012 






BVC 


013760 


100411 






BMJ 


013762 


000242 






CLV 


013764 


105200 






I NCB 


013766 


103006 






BCC 


013770 


102005 






BVC 


013772 


100004 






BPL 


013774 


000242 






CLV 


013776 


106200 






ASRB 


*,14000 


102776 






BVS 


014002 


000401 






BR 


014004 


104400 




EMTIB I 


HLT 


*,14006 


000002 






RTI 


014010 


105500 




EMT1CI 


AOCB 


*,14012 


103003 






BCC 


014014 


001002 






BNE 


014016 


005700 






TST 


014020 


001401 






BED 


014022 


104400 




EMTIO 1 


HLT 


014024 


012637 


000030 




MOV 


014030 


605037 


000032 




CLP 


014034 


104000 






SCOPE 



EMTJB 

emtib 

R0 {R0«000200,CC'S«1010 

emtib 

emtib 

i clear 'v' 

) AND SET <C» 

R0 ) R0 » 000177 » CC S» 0011 

emtib 

Emtib 

> clear « V ' 

R 0 lR0*000200#CC'Ssi011 

Emtib 

emtib 

emtib 

) CLEAR 'V' 

R 0 J SHI TT R0 UNTIL >V CLEARS 

. -2 
i *4 

) ERROR I 

) EX I T WITH R0V000377 

R0 ;R0r00Z000 

emtio 
emtio 
R0 
>*4 

tSP»*.**EMTVEC {RESTORE SCOPE PTR 
•#EMTVEG*2 



ICHECK TRAP INSTRUCTION trap sequence 





000004 








HLT=lOT 




{REDEFINE HLT 


*14036 


013737 


000034 


000020 




MOV 


P*TRAPVEC 


.MIQTVEC 


(SET JOT (HLT) TRAP VECTOR 


*14044 


012737 


014112 


000034 




MOV 


#TRAP1,#*TRAPVEC 


{SET TRAP VECTOR 


*14052 


063737 


001004 


000034 




ADO 


P#F ACTOR i 


»#TRAPVEC 


1 ADD RELOCATION FACTOR 


014060 


000270 








SEN 




(SET N 




*14062 


013737 


177776 


000036 




MOV 


P*PSW,»»TRAPVEC*2 


IRETAIN CURRENT PSW ON TRAP 


*14070 


000261 








SEC 






{SET CARRY 


*14072 


110700 








M0V8 


PC.R0 






*14074 


000264 








SEZ 




{SET H 


BIT 


*14076 


104400 








TRAP 




{TRAP 


TO TRAP! 


*14100 


103401 






III 


BCS 


,*4 






*14102 


000004 








HLT 








*14104 


001401 








BEO 


, + 4 






*14106 


000004 








HLT 








*14110 


000412 








BR 


trapic 






*14112 


100401 






TRAPlt 


BMJ 


,*4 


(N BIT 


GOT SET ON TRAP 


*14114 


000004 








HLT 








*14116 


062700 


000004 






ADO 


#4iR0 






*14122 


120016 








CMP8 


R0,<SP> 


{CHECK 


LOW BYTE OF RETURN PC ON 


*14124 


001401 








BEO 


,♦4 


{STACK 




*14126 


000004 








HLT 
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,PU 


















014130 


124646 








CMP8 


*(SP) ,.<SP) 






*14132 


032626 








BIT 


( SPA* » t SP ) * 






*14134 


000002 








RTI 




)RETURN TO JNST FOLLOWING TRAP (IS) 




*14136 


013737 


000020 


000034 


TRAP1CI 


MOV 


P#I0TVEC,PPTRAPVEC {RESTORE TRAP (HLT) TRAP VECTOR 




*14144 


012737 


000200 


000036 




MOV 


#PRIY4,0#TRAPVEC*2 




*14152 


212737 


000022 


000020 




MOV 


*I0mC + 2.P#IQfV6C 




*14160 


005037 


000022 






CLR 


p#!ome *2 






*14164 


104000 








SCOPE 










104400 








hlt*trap 


{RESTORE HLT TO A TRAP INST 




*14166 


010702 








MOV 


PC.R2 






*14170 


062702 


020012 






ADO 


#12»R2 






*14174 


012707 


001132 






MOV 


PRELOC , PC 


) GO RELOCATE PROGRAM CODE 




*14200 


000240 








NOP 




{PROGRAM RETURNS HERE-2 












12222222222222 


LAST ADORESS OF 


CODE TO BE RELOCATED 22222222222 




*14202 


010701 








MOV 


PC.fU 


) SET SCOPE PTR 












ITHE BELOW ROUTINE ASCERTAINS WHICH CP « CP OPTIONS THE 'PROGRAM IS RUN* 












INING ON AND SETS AM INDICATOR 


IN OPT, CP ACCORDINGLY, 




*14204 


005767 


164570 




CPCHKI 


TST 


ICN? 


{CHECK IF PASS 0 




*14210 


001036 








SNE 


«EL3 


{DO NOT EXECUTE ROUTINE JF NOT PASS 0 




*14212 


012737 


000002 


000006 




MOV 


PRTI i P*ERRVEC*2 


>SET UP ERROR TRAP TO RETURN 




014220 


012700 


000003 






MOV 


#3,R0 






014224 


000261 








SEC 








014226 


005737 


177772 






TST 


• #PIRQ 


)R0»3 IF 11/45 




014232 


005600 








SBC 


R0 


)R0»? IF 11/40 




*14234 


000261 








SEC 








*14236 


105737 


177777 






TSTB 


•#PSW*1 


> R0»1 IF- 11/20 




*14242 


005600 








SBC 


R0 






*14244 


005037 


177700 






CL* 


P#l?7700 


IR0*0 IF 11/05 




*14250 


006300 








ASL 


R0 


{SHIFT INOIOATOR 




*14252 


010027 








MOV 


R0i 4 PC)* 


(SET CP INDICATOR 




*14254 


000000 






OPT. CPI 


iWORO 


0 


{CONTAINS OPTION 4 CP INDICATORS 














IEVEN 


BYTEI 0«il/05 


. 2*11/20. 4»ll/40,*«ii/45 














1000 BYTE | 200«MEM 


MGMT,100*EJS, 40*11/45 FLOATING POINT 




*14256 


005037 


000006 




3S 1 


CLP 


•#ERRVE6*2 


{RESTORE ERROR TRAP TO HALT ON TRAP 




*14262 


005037 


000012 






CLP 


•#RESVEE*2 






*14266 


126727 


177762 


000004 




CMPB 


OPT, CP, (4 


(BRANCH IF 11/05 OR 11/2® 




014274 


002404 








BLT 


REL3 






214276 


004767 


164730 






JSP 


Pc. .PRINT 


{PRINT MESSAGE BEOINING AT FOLLOWING APRS 




014302 


016627 








ILLTE5T 






*14304 


000000 








halt 













13333333333333 


FIRST AO0RESS 


TO BE RELOCATED 333333333 


014306 


010700 




REL3I MOV 


PC.R0 


(GET PC 


*14310 


005740 




TST 


*(R0> 


{R0 CONTAINS THE ADDRESS OF REL« 


*14312 


010037 


001010 


HOV 


R0.PPFRSTAD 


(SAVE 


*14316 


010700 




MOV 


PC.R0 


(GET CURRENT PC 


014320 


162700 


014320 


SUB 


«, ,R0 


(SUBTRACT RELOCATION FACTOR 
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£114324 


010037 


001004 




MOV 


R0»P*FA6TOR 


)5AVE RELOCATION FACTOR 


£114330 


010701 






MOV 


PCiRI 


JSET NEW SCOPE PTR 








1 CHECK 


STACK 


OVERFLOW 




014332 


013767 


177776 


000306 OVFLWI 


MOV 


PpPSW, 7$ 


JSAVE STATUS IN 7* BELOW 


014340 


005037 


177776 




CLR 


•#psw 


JSET KERNEL MODE 


014344 


010746 






MOV 


PC.-<SP> 


(PUSH CURRENT pc ONTO STACK 


014346 


062716 


000136 




ADD 


*2*-.. t SP > 


(FORM AODRESS OF 2S below 


014352 


011637 


000004 




MOV 


t SPA > PPERRVEC 


(SET ERROR VECTOR 


014356 


012737 


000340 


000006 


MOV 


#340,M6RRVEC*2 


(SET PRIORITY LEVEL 7 ON TRAP 


014364 


062716 


000074 




ADO 


#41*-2*,<SP> 


(FORM ADDRESS OF 41S BELOW 


014370 


012637 


000020 




MOV 


(SP**.*tIOTVEC 


(SET 1 0 T TRAP VECTOR TO 41$ 


014374 


012746 


000340 




MOV 


#340, - tSP > 




014400 


011637 


000022 




MOV 


(SP»,*#IOTvEC*2 


(SIT PRIORITY LEVEL 7 ON JOT TRAP 


014404 


010746 






MOV 


PC,-(SP) 


(PUSH CURRENT PC ONTO THE STAK 


014406 


062716 


000006 




ADO 


#6, ISP) 


(ADO OFFSET TO JNST FOLLOWING RTJ 


014412 


000002 






RTI 




(SET PRIORITY LEVEL 7, CLEAR » T ’ ' B I T 














(ANQ EXECUTE FOLLOWING JNST NEXT 


014414 


012703 


000376 




MOV 


#376, R3 




014420 


010313 






MOV 


R3.4R3) 


(LOAD 376 INTO ADDRESS 376 


014422 


010306 






MOV 


R3.SP 


(SET STACK PTR AT BOUNDARY 



J the below instructions SHOULD NOT CAUSE AN OVERFLOW trap 



614424 


005716 








TST 


(SP* 


(BECAUSE TST IS A NON MOOJFYJNG INST 


014426 


021666 


177776 






CMP 


<SP*,-2(SP) 


(SO IS COMPARE 


U4432 


122737 


000002 


014254 




CMPB 


#2,P#0PT,CP 


(CHECK IF 11/20 OR 11/05 


014440 


002411 








BLT 


12* 


(BRANCH IF 11/40 OR 11/45 


014442 


001404 








BED 


11* 


(BRANCH IF 11/80 


014444 


012767 


000014 


000144 




MOV 


#14,51* 


(CHANGE CHECK WORD IN 51* JF 11/05 


014452 


000407 








BR 


10* 


014454 


012767 


000034 


000134 


US: 


MOV 


#34,51* 


(CHANGE CHECK WORD IN 51* JF 11/20 


014462 


000403 








BR 


10* 


014464 


012656 






12S ( 


MOV 


<SP»*.»-(SP) 


(BECAUSE OF AOORISS MOOE 5 


014466 


054676 


000000 






BIS 


-(SP).P(SP) 


(BECAUSE OF ADDRESS MODE 7 


014472 


005066 


000004 




10S) 


CLR 


4 ( SP ) 


(BECAUSE DEST ADDRESS IS > 376 


014476 


057636 


000000 






BIS 


#(SP> ,»(SP)* 


(BECAUSE OF ADDRESS MODE 3 


014502 


000406 








BR 


3* 


(BRANCH OVER NON KERNEL MOCE TESTS 










(ERROR 


SERVICE 


ROUTINE 




014504 


012600 






2$ 1 


MOV 


(SP** « R0 


(SAVE PC OF INSTRUCTION THAT TRAPPEO 


014506 


012602 








MOV 


( SPA* - R2 


(SAVE PSW 


014510 


012706 


000500 






MOV 


#STKPTR,’SP- 


(SET STACK PTR 


014514 


104400 








hlt 




(ERROR I AN INSTRUCTION THAT WAS NOT 
(SUPPESEO TO TRAP TRAPPED 
















( R0 CONTAINS PC, R2 CONTAINS PSW 


014516 


000450 








BR 


6* 


(EXIT TEST 










1 THE BELOW INSTRUCTIONS WILL 


CAUSE A STACK OVERFLOW 










(STACK 


PTR IS 


AT 376 




014520 


062737 


000066 


000004 


3$) 


ADO 


#4*-2*,##ERRVEC (SET ERROR VECTOR TO 4$ 


014526 


010306 








MOV 


R3.SP 


(SET STACK PTR AT 376 


014530 


012702 


000001 






MOV 


#1,R2 




014534 


005000 








CLR 


R0 




014536 


005016 








CLR 


f SPA 


(SETS BIT 0 IN R0 
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014540 


006302 


ASL 


R2 


(SHIFT INDICATOR 8IT 


014542 


105226 


INCB 


<SP** 


(SETS SIT 1 IN R0 


014544 


006302 


ASL 


R2 


014546 


060746 


ADD 


PC.-CSP) 


(SETS BIT 2 IN R0 


014550 


006302 


ASL 


R2 




£.14552 


000004 


IOT 




(SETS BIT 3 IN R0 


014554 


006302 


ASL 


R2 




014556 


004767 000014 


jSR 


PC, 40* 


(SETS BIT 4 in R0 


014562 


006302 


ASL 


R2 


(NOTE) U/05 WITHOUT ECO # KOUA-00005 


014564 


050666 177776 


BIS 


SP.-2ISP) 


(OOES NOT SET BJT 4. 
(SITS BIT 5 IN R0 


014570 


000407 


BR 


5* 



JPROGRAM WILL TRAP HERE ON OVERFLOW trap 



014572 


050200 






4*1 


BIS 


R2.R0 


(SIT APPROPRIATE bit in R0 


014574 


000002 








RTJ 




(RETURN FROM TRAP 


£14576 


000207 






40* : 


RTS , 


PC 




£14600 


012737 


020022 


000020 


41*: 


MOV 


#J0TVEC+2.##I0TVEC 


£14606 


000002 








RTI 














ICHECK 


THAT ABOVE IWSRUCTIONS 


DID TRAP 


£14610 


012706 


000500 




5*1 


MOV 


#stkptr,sp 


(SET STACK PTR 


£14614 


022700 






50* : 


CMP 


CPC»*.R0 


(EACH INSTRUCTION SET A BIT JN R0 


£14616 


000000 






51*: 


, WDRD 


0 


(CONTAINS CHECK WORD 


£14620 


001407 








BED 


6* 


(R0« 77 if 40 OR 45,14 JF e5,34 JF 20 


£14622 


105737 


014254 






TSTB 


•PORT, CP 


(CHECK IF 11/05 


£14626 


001003 








bne 


50* 


(BRANCH IF NOT AN 11/05 


£14630 


022700 


000034 






CMP 


#34, R0 


(USE ECO KDllA-00005 CHECK WORO 


£14634 


001401 








BEQ 


6* 




014636 


104400 






52*: 


hlt 














(EXIT ROUTINE 






014640 


012706 


000600 




6S 1 


MOV 


#KPTR,SR 


(SET KERNEL STACK PTR 


014644 


012746 








MOV 


CPC**, -<SP> 


(PUSH OLD PSW ONTO STACK 


014646 


000000 






7*1 


.WORD 


0 


(CONTAINS SAVED PSW 


014650 


010746 








MOV 


PC,-CSP> 


(PUSH current pc onto stack 


014652 


062716 


000006 






ADO 


#6, ISP) 


i aoo offset 


£14656 


008082 








RTI 






014660 


012706 


000500 






MOV 


#STKPTR,SP 


(SET STACK PTR 


014664 


012737 


000006 


000004 




MOV 


#ERRVEC+2,P#|RRVEC 


014672 


104000 








SCOPE 














ICHECK 


that all 


reserves instructions trap (to location 101 


014674 


012737 


000002 


001114 


RESTRPI 


MOV 


#2,P#SCQPED 


(LIMIT TO TWO ITERATIONS 


014702 


010701 








MOV 


PC.Ri 


(SET SCOPE POINTER 


014704 


012702 


015024 






MOV 


#5*,R2 


(GET ADDRESS OR RESERVED INSTRUCTION TABLE 


014710 


063702 


001004 






add 


•#FACT0R,R2 




014714 


122737 


000004 


014254 




CMPB 


#4,P#0PT ,CP 


(ADJUST TABLE ADORESS IF 11/20, U/05 


014722 


003402 








BLC 


u* 


(5**11/45, 11/40 TABLE, 6**11/09 


014724 


062702 


000036 






ADO 


#6*-5*,R2 


(11/20 TABLE 


014730 


132737 


000040 


014255 


111) 


S I TB 


#40V##ORT.CP*1 


(CHECK ir 11/45 FLOATING POINT JS AVAIL. 


014736 


001402 








BEO 


,*6 


(BRANCH JF NOT AVAILABLE 
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014740 005067 
014744 012737 
014752 063737 
014760 012203 
014762 001454 
014764 012204 
014766 010317 
014770 000000 
014772 104400 
014774 104400 
314776 104400 
015000 000405 
015002 012716 
015006 063716 
015012 000002 
015014 020304 
015016 001760 
015020 005203 
015022 000761 

015024 000007 
015026 000077 
015030 000210 
015032 000227 
015034 007000 
015036 007777 
015040 075040 
015042 076777 
015044 106400 
015046 106477 
015050 106700 
015052 107777 
015054 170000 
015056 177777 
015060 000000 



£15062 000006 
£15064 000077 
015066 000210 
£15070 000237 
015072 006400 
015074 007777 
£15076 070000 
£15100 077777 
£15102 106400 
015104 107777 
£15106 170000 
015110 177777 
£15112 000000 
015114 012737 
£15122 104000 
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015124 013767 
£15132 005037 
£15136 005046 
£15140 010746 
315142 062716 
015146 000002 

015150 013746 
015154 012704 
£15160 000250 
015162 005714 
015164 001401 
015166 104400 
015170 113700 
015174 016000 

015200 005737 
£15204 100002 
£15206 052700 
£15212 012702 
215216 030200 
£15220 001423 
£15222 005037 
£15226 030227 
£15232 001403 
£15234 012737 
015242 005014 
£15244 050214 
015246 011403 
£15250 020203 
£15252 001401 
015254 104400 
015256 000244 
015260 040214 
015262 011403 
015264 001401 
015266 104400 
015270 006302 
015272 103351 
015274 005014 
015276 012637 
015302 012746 
£15304 000000 
015306 010746 
015310 062716 
015314 000002 
015316 104000 

015320 013704 
015324 010446 
015326 112716 
015332 010746 
015334 062716 
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000110 

015002 

001004 



015014 

021004 







CLR 


50* 


(SET TABLE TERMINATOR AT GROUP 7 


000010 




MOV 


#4*VP#RgSVEC 


(SET RESERVED INSTRUCTION trap 


000010 




ADC 


•#FACTO*,B#RESVEC 




1SI 


MOV 


(R26*.R5 


(GET FIRST RESERVEO INSTRUCTION 






3ES 


7* 


(0 TERMINATES THE TABLE 






MOV 


(R2A-.R4 


(GET LAST RESERVED INSTRUCTION IN GROUP 




2*1 


MOV 


R3.4PC) 


(EXECUTE RESERVED INSTRUCTION 




3*1 


.WORD 


0 


(CONTAINS RESERVED INSTRUCTION 






HLT 




(ERHORI INSTRUCTION IN R3 






HLT 




(<**> ABOVE FAILED TO CAUSE A 






WLT 




(RESERVED INSTRUCTION TRAP 






BR 


41* 






4*| 


MOV 


#41*. (SP) 


(ADJUST RETURN PC 






AOO 


•pFACTOR, (SP) 


(TO RETURN TO 41* 






RT I 




(RETURN TO 41* 




4is: 


CMP 


R3»R4 


(HAS GROUP OF RESERVED INSTRUCTIONS 






5EQ 


IS 


(BEEN EXECUTED 






INC 


R3 


(INCREMENT THIS RESERVED INSTRUCTION 






BR 


2* 


(TO NEXT ONE AND EXECUTE 




(TABLE 


OF 11/40, 


,11/45 RESERVED 


INSTRUCTIONS (0 TERMINATE* THE TABLE) 




5*| 


7 




(CROUP t 






77 




( " 






210 




(GROUP 2 






227 




( " 






7000 




(GROUP 3 






7777 




( " 






75040 




(GROUP 4 






76777 




( " 






106400 




(GROUP 5 






106477 




( " 






106700 




(GROUP 6 






107777 




J " 




50* i 


170000 




(GROUP 7 FLOATING POINT 






177777 




> " INSTRUCTIONS 






0 




10 TERMINATES THE TABLE 



000012 000010 



(TABLE 


OF 11/05, 


> U/20 RESERVED INSTRUCTIONS <0 TERMINATES THE 


TABLE! 


6*1 


6 


(GROUP 


1 






77 


( " 








210 


(GROUP 


2 






237 


( " 








6400 


(GROUP 


3 






7777 


( " 


3 






70000 


(GROUP 


4 






77777 


( " 








106400 


(GROUP 


5 






107777 


( " 








170000 


(GROUP 


6 






177777 


( " 








0 


10 TERMINATES THE TABLE 




7*1 


MOV 


#RESVEC*2»P#RESVEC 


(RESTORE RESERVEO TRAP 


10 HALT AT 12 




SCOPE 









(CHECK THAT ALL BITS IN THE PROCESSED STATUS WORD (PSW) CAN BE SET AND 
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(CLEARED, 






177776 000152 


PSWCHKI MOV 


P#PSW,3S 


(SAVE STATUS 


177776 


CLR 


*#PSW 


(CLEAR MODE BITS IN PSW 




CLR 


-{SR! 


(ROUTINE TO CLEAR 




MOV 


PCi-(SP) 


(STATUS WORD (PSW) 


000006 


ADD 


#6,<SP) 






RT J 




(CLEAR PSW 6 EXECUTE FOLLOWING 


000016 


MOV 


•#TBITVEC*2 


.-(SPJ 


177776 


MOV 


#PSW,R4 


(LOAD ADORESS OF PSW INTO M 




CLN 








TST 


<R4* 


(CHECK THAT PSW WAS CLEARED 




BEQ 


<*4 






HLT 




(ERROR) PSW FAILED TO CLEAR 



014254 

016566 



014254 



170000 

000001 



MOVB *#OPT.CRiR0 (GET CP TYPE 

MOV PSWBIT(0),R0 (GET SIT MASK FOR TEST R0-THO5E BJTS JN 

(THE PSW WHICH CAN BE SET/CLEARED, 

TST B#OPT.CR (CHECK IF MEM M5MT IS AVAILABLE' 

BPl 10* (BRANCH IF NOT AVAILABLE 

BIS #170000',' R0 (SET BITS 15-12 IF MEM MGMT 

MOV #1.R2 (R2 « TEST BIT 





ISt 


BIT 


R2,R0 


(CHECK IF BJT CAN BE SET/CLEAREO 






BES 


2* 




000016 




CLR 


•#TBITVSC*2 




000020 




BIT 


R2i#20 


(CHECK IP TEST wile set *T* BJT 






BEG 


20* 




000002 


000016 


MOV 


#RTJ,MTBITVEC*2 


'(SET RTI INTO RETURN 




20*: 


CLR 


<R4* 


(CLEAR PSW 






BIS 


R2i<R4) 


(SET R2 INTO PSW 






MOV 


< R4* ,R3 


(GET BIT 






CMP 


R2.R3 


(CHECK THAT BIT WAS SET JN PSW 






BES 


,*4 








HLT 




(ERROR) BIT IN R3 FAILED TO SET IN 






CL* 




(CLEAR Z BIT 






BIC 


R8 i6R4) 


(CLEAR BIT IN PSW 






MOV 


(R4A.R3 


(GET PSW RESULT 






BES 


2* 


(BRANCH IF BIC ABOVE CLEARED BIT J! 






HLT 




(ERROR | BIT IN R2 FAILED TO CLEAR ! 




2*1 


ASl 


R2 


(SHIFT TEST BIT 






BCC 


IS 


(BRANCH IF ALL BJTS NOT TESTED 






CLR 


CR4A 


(CLEAR STATUS 


000016 




MOV 


( SPA* , *#TBI TVEC* 


8 (RESTORE T BIT RETURN 






MOV 


(pCA* ( SP ) 


(PU3H ORIGINAL STATUS ON STACK 




3*1 


.WORD 


0 


(CONTAINS ORIGINAL PSW 






MOV 


Pc,-(SP» 


(SET RETURN PC 


000006 




AOO 


#6»tSP) 








RT! 




(RETURN 




4*1 


SCOPE 






177776 




MOV 


•#PSW,R6 


(SAVE PSW IN R4 






MOV 


R4,-<SP) 


(PUSH R4 ONTO STACK 


000300 




MOVB 


#300, <8P> 


(SET PRIORITY LEVEL 6 ANO 






MOV 


PC,-<SP) 


1 CLEAR «T* BIT ANO EXECUTE 


000006 




ADD 


#6, ASP) 


(INSTRUCTION FOLLOWING RTI 
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015340 00000J 



013342 010603 
015344 000257 
015346 112706 
015352 006006 
013354 103776 
015356 005206 
015360 001403 
013362 010602 
013364 010306 
013366 104400 

013370 010306 



013372 010600 
015374 010003 
013376 005043 
013400 112746 
013404 022713 
013410 001002 
015412 020306 
@15414 001401 
015416 104400 

015420 105226 
013422 005723 
013424 001002 
013426 020006 
015430 001401 
>315432 104400 

015434 005143 
015436 144613 
013440 022713 
013444 001002 
015446 020603 
015450 001401 
015452 104400 

013454 132627 
013460 001002 
013462 020600 
213464 001401 
015466 104400 

015470 012746 
015474 062706 
013500 012702 
015504 120246 
213506 001004 
015510 122602 
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015512 001002 
015514 020006 
015316 001401 
015520 104400 
015522 010446 
015324 010746 
015526 062716 
015532 000002 
015534 104000 



015536 012727 
015542 000000 
015544 010700 
313546 162700 
015552 005520 
015554 006340 
015556 102375 
015560 022767 
015566 001401 
015570 104400 



013572 010700 
015574 010002 
313576 005202 
215600 000277 
015602 000251 
315604 020002 
315606 103003 
015610 102402 
015612 001401 
015614 100401 
015616 104400 



015620 000277 
315622 120200 
013624 103403 
315626 102402 
315630 001401 
013632 100001 
315634 104400 



015636 000240 
013640 000240 
015642 000240 
015644 000240 
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RT! 





ICHECK 


THAT ALL 


BITS IN THE 


CURRENT STACK PTR CAN BE SET/CLEARED 




CHKSP | 


MOV 


Sp,R3 


ISAVE STACK PTR 






CCC 




000377 




MOVB 


#377, SP 


) SE T STACK PTR • -1 




1SI 


ROR 


sp 


(RQfATE 0 BIT THROUGH ALL BIT 






BCS 


1$ 


(BIT POSITIONS 






INC 


sp 


(SHOULD INCREMENT SP TO 0 






BEO 


2J 








MOV 


SP.R2 


(SAVE ERROR STACK PTR 






MOV 


R3,SP 


(SIT STACK PTR FOR TRAP 






HLT 




I ERROR I 




2$ 1 


MOV 


R3,SP 


(RESTORE ORIGINAL STACK PTR 




ICHECK 


BYTE OPERATIONS USING 


THE STACK 




SPCHK) 


MOV 


SR,R0 


ISAVE STACK PTR 






MOV 


R0.R3 








CLR 


-<R3> 




177777 




MOVB 


#»li-(5P> 


MSP) * 377 


000377 




CMP 


#379, (R3> 


1 CHECK THAT ONLY even BYTE was affected 






8NE 


IS 






CMP 


R3»SP 


ICHECK AUTO-DEC 






BEO 


,*« 






IS) 


HLT 










INCB 


(SPA* 








TST 


(R3A* 


(CHECK RESULT 






BNE 


2$ 






CMP 


R0.SP 


ICHECK AUTO-INC 






BEO 


.♦A 






2$ 1 


HLT 










COM 


-<R3) 


( (R3 ) =177777 






BICB 


- (SP) , ( S3 > 


177400 




CMP 

BNE 

CMP 


#179400, (R3) 
3 J 

SP,R3 


(CHECK RESULT 






BEO 


.*4 






3Sl 


HLT 






000377 




BITS 


(SPA*, #377 








BNE 


4$ 








CMP 


Sp,R0 








BEO 


,*4 






4S) 


HLT 






000001 




MOV 


#1»-(SP> 




000002 




AOO 


#2 1 SP 




177401 




MOV 


#177401, R2 








CMPB 


R2,-(SP) 








BNE 


5$ 








CMPB 


(SPA*,R2 





INSTRUCTION EXER, 


MACYll 


27(657) 12-DEC- 






BNE 


5$ 






CMP 


R0,SP 






BEO 


.*4 




5Sl 


HLT 








MOV 


R4,-(5P> 






MOV 


PCi-<SP> 


000006 




ADD 

RT! 

SCOPE 


#6,tSP) 




ICHECK 


THAT t C * 


BIT SETS/CLEARS 


177776 


CBITI 


MOV 


#177776, (PC)* 




IS) 


.WORD 


0 






MOV 


PC.R0 


000004 




SUB 


#4,R0 




2 $ I 


ADC 


(R0A* 






ASL 


«<R0) 






BVC 


2$ 


077776 177734 




CMP 


#079776,1$ 






8E0 


,♦4 






HLT 
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! RESTORE ORIGINAL PSW TQ STACK 



I LOAD CONSTANT 

>CET CURRENT PC 
JPOINT R0 TO IS ABOVE 
JADQ ' C ’ BIT TO 1* ABOVE 
(SHIFT It 

(UNTIL ’V' BIT SETS 
(CHECK RESULT 

(ERROR! INCORRECT RESULT JN IS ABOVE 
(R0*AOORESS OF OATA 



ICHECK THAT CONDITION COOES ARE 
I AND THAT NUMBER *1 ARE CQMPAREO 
CMPN ) MOV PCiR0 

MOV R0»R2 

INC R2 

SCC 

♦CLClCLN 
r CMP R0,R2 

BCC 1$ 

BVS IS 

BES IS 

BMJ i *4 

1$) MLT 



SET PROPERLY WHEN A NUMBER (CURRENT PC) 
, AND VICE VERSA. 

)GET CURRENT PC 
ISAVE IN R2 
) MAKE R2 e R0*1 

)CLEAR C « N BITS 
) COMPARE # WITH #*1 
) CARRY BIT SHOULO SET 
)V BIT SHOULD CLEAR 
(Z BIT SHOULD CLEAR 
(N BIT SHOULD SET 

(ERROR! COMPARE * WITH #♦! FAILED TO 
(SET CONDITION COOES IN PSW CORRECTLY 



SCC 

CMPB R2.R0 

BCS 2$ 

BVS 2S 

BEO 2S 

BPL .*4 

2Sl HLT 



(SET CONOITJON COOES IN PSW 
(COMPARE #*1 WITH » 

(C BIT SHOULD CLEAR 
(V BIT SHOULD CLEAR 
(2 BIT SHOULD CLEAR 
IN BIT SHOLO CLEAR 

(ERROR I COMPARE «*i WITH # FAILED TO SET 
(CONDITION COOES IN PSW CORRECTLY 



)24 NOP (240) INSTRUCTIONS FOLLOW. THESE NOPS MAY 
IBE CHANGED TO TEST CODS IF THE NEED ARISES, THE TEST COOE SHOULD 
IBE POSITION INDEPENDENT AND SHOULD RUN WHEN RELOCATED BY THE PROGRAM, 
NOP 
NOP 
NOP 
NOP 
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*15646 


000240 








NOR 






015450 


000240 








NOR 






015452 


000240 








NOR 






015454 


000240 








NOR 






015454 


000240 








NOR 






015440 


000240 








NOR 






015442 


000240 








NOR 






015444 


000240 








NOR 






015444 


000240 








NOR 






015470 


000240 








NOR 






015472 


000240 








NOR 






015474 


000240 








NOR 






015474 


000240 








NOR 






015700 


000240 








NOP 






*>15702 


000240 








NOR 






015704 


000240 








NOR 






015704 


000240 








NOR 






015710 


000240 








NOR 






215712 


000240 








NOR 






215714 


000240 








NOR 






015714 


104000 








SCOPE 






015720 


010702 








MOV 


PC.R2 




015722 


042702 


000012 






ADO 


#12. R2 




015724 


012707 


0C1132 






MOV 


RRELOC i PC 


* GO RELOCATE PROGRAM code 


015732 


000240 








NOR 




JPRQGRAM RETURNS H|RE*2 










13333333333333 


LAST ADDRESS OF 


CODE TO BE RELOCATED 33333333333 










ICHECK 


TTY INTERRUPT! 




015734 


005037 


001004 




TTYCHKI 


CLR 


REACTOR 




315740 


010701 








MOV 


PC. HI 




215742 


032737 


000100 


177564 




BIT 


#100,P#TPS 


1 CHECK IF TTY IS READY 


015750 


001374 








BNE 


.-6 




215752 


012737 


016026 


000064 




MOV 


#3*.»#TPVEC 


.SET TTY INTERRUPT VECTOR 


015740 


012737 


000200 


000066 




MOV 


#20B,»#TPVEC*2 


(PRIORITY LEVEL « ON INTERRUPT 


015744 


012767 


016064 


000064 




MOV 


#NULLS,MSG 


1ADQRESS OF MESSAGE TO BE TYPPEO 


215774 


117737 


000060 


177566 




MOVB 


RMSG * f#TPB 


JTYPE FIRST CHARACTER OF MESSAGE 


014002 


105737 


177564 






TSTB 


P#TRS 




214004 


100375 








BPL 


i -4 




214010 


006237 


177564 






ASR 


R#TPS 


1 SET IE BIT IN TTY CSR REG 


214014 


000001 








WAIT 




JWAIT FOR FIRST INTERRUPT 


214014 


000424 








BR 


KWH 




*14020 


006337 


177564 




21! 


ASL 


•RTFS 


! CLEAR IE BIT 


*14024 


000002 








RTI 






014024 


122777 


000012 


000024 


3 $ » 


CMPB 


#12. *MSG 


J BRANCH IF CHAR IS NOT <LP> 


*14034 


001004 








BNE 


4$ 




£14034 


004767 


163170 






JSR 


PC.aPRJNT 


J PRINT MESSAGE BEG JNING AT FOLLOWING ADRS 


*14042 


001744 








SCRLF 






*14044 


000404 








BR 


5$ 




314044 


117737 


000006 


177566 


4$ ! 


MOVB 


»MSGiR#TP8 


JTYPE CHARACTER 


.16054 


001761 








BE3 


21 


J BRANCH IF TERMINATOR 


*16054 


005227 






5$ 1 


INC 


(PCI* 


'SET MSG TO NEXT CHAR ADDRESS 
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*16060 


000300 






MSG! 


.WORD 


0 


(CONTAINS ADDRESS OF CHAR TO BE TYPED 


*16062 


000002 








RTI 




J RETURN 


*16064 


020015 


000015 




NULLS! 


, ASC I 2 


<15X40><15> 














.EVEN 














(ROUTINE 


: TO TURN ON KWll-L LINE 


CLOCK IF AVAILABLE 


*16070 


*12737 


000002 


000006 


KW11 ! 


MOV 


#rti,»*errvec*2 


1 SET UP DIRECT RTI! ON TRAP 


*16076 


012737 


016232 


000100 




MOV 


#4S,R#LKVEC 


IL°AD INTERRUPT VECTOR 


*16104 


012737 


000300 


000102 




MOV 


#30«.R#LKVEC*2 


1 SET PRJORJTY LEVEL 6 ON INT, 


*16112 


000262 








SEV 




1 SET TIME OUT INDICATOR 


*16114 


052737 


000100 


177546 




BIS 


#100.R*LKS 


(SET INTERRUPT ENABLE 


*16122 


102446 








BVS 


5$ 


(SKJP PRIORITY ARBITRATION TEST 
















1 BELOW JF NO KWH-L 










(ROUTINE 


: TO CHECK PRIORITY ARBITRATION LOGIC 










ITME BELOW TEST 


WILL INHIBIT INTERRUPTS ON LEVEL 6 AND ABOVE (LOCKING 










IOUT THE 


: LINE CLOCK* ANB THEN SET UP THE TTY TO INTERRUPT, NEXT THE 










IPRIORITY LEVEL 


WILL BE SET TO 


0 ALLOWING INTERRUPTS IN WHICH CASE 










ITHE LINE CLOCK 


(AT LEVEL 6) SHOULD INTERRUPT BEFORE THE TTY ( AT LEVEL 4! 


*16124 


132737 


000020 


177776 




BITS 


#20.»#P8W 


(CHECK JF 'T< BIT IS SET 


*16132 


001042 








BNE 


5| 


IDO NOT DO TEST J|f SIT 


*16134 


112737 


000300 


177776 




MOVB 


#30».*#PSW 


I SET PRIORITY LEVEL # 6 


*16142 


013727 


020064 






MOV 


»#TPVEC,(PC>« 


(SAVE TTV INTERRUPT VECTOR 


*14146 


000000 






1$* 


.WORD 


0 


(CONTAINS CURRENT TTY VECTOR 


•*16150 


105737 


177564 






TSTB 


RRTpS 


ICHECK IF READY 


*16154 


100375 








BPL 


t *» 4 


. 1 WAIT FOR TTY TO BECOME READY 


016156 


012737 


016202 


000064 




MOV 


#2$»R«TRV£C 


1 SIT NEW VICTOR 


*16164 


005227 








INC 


(PC** 


(STALL WAITING FOR LINE CLOCK 


**16166 


000000 








.WORD 


0 


ITO BE READY 


*16170 


012737 


016206 


000100 




MOV 


#3*.R#LKVEC 


(SET LINE CLOCK VECTOR 


*16176 


105037 


177776 






CLRB 


R#PSW 


1 SET PRIORITY LEVEL 0 


*16202 


104400 






2SI 


HLT 




(ERROR! EITHER TTY INTERRUPTED 










(BEFORE 


THE LINE CLOCK QR BOTH 


FAILED TO INTERRUPT ' 


*16204 


000415 








BR 


5$ 


(EXJT TEST 


*16206 


016737 


177734 


000064 


3$» 


MOV 


1S,R#TPWEC 


IRESTQRE TTY VECTOR 


016214 


012737 


016232 


000100 




MOV 


#4*.*#LKV£C 


(SET LINE CLOCK VECTOR 


*16222 


105037 


177776 






CLRB 


RRPSW 


(RESTORE PRIORITY LEVEL 0 


*16226 


012716 


016240 






MOV 


#5*. <SP* 


(SET RETURN ADORE'SS TO »S BELOW 


016232 


005267 


162540 




4$ 1 


INC 


ticks 


1 INCREMENT TICK COUNT 


*16236 


000002 








RTI 




(RETURN 


016240 


005037 


000006 




5$ ! 


CLR 


R#ERRVEE*2 


1 RESTORE ERROR TRAP TO HALT AT 6 


016244 


000240 






END! 


NOP 






016246 


005037 


177776 




END1! 


CLR 


R#PSW 


(CLEAR MODE bits in psw 


016252 


005046 








CLR 


-<SP> 


JCL6AR PSW 


016254 


012746 


016262 






MOV 


#.*6,-(8P> 




*16260 


000002 








RTI 




(GO TO NEXT INST WITH PSWig 


016262 


012706 


000600 






MOV 


#KPTR»8R 


(SET KERNEL STACK PTR (NOT APPLICABLE 
















(FOR HF20.il/05 CP'S) 


*16266 


032737 


000100 


177564 




BIT 


#10f,R#TPS 


(CHECK IF OUTPUT DEVICE IS BUSY 


016274 


001374 








BNE 


.-6 


(IS AVAILABLE 
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016276 


105737 


177570 






TST8 


PpSNR 


(DELETE END OF PASS TYPE OUT IF SW7«0 


016302 


100020 








BPL 


IS 


(BRANCH IF SW7 IS DOWN 


016304 


016702 


162470 






MOV 


ICNT.R2 


(GET PASS COUNT 


016310 


004767 


163014 






JSR 


PC.SFORM0 


(GO TO FORMAT ROUTINE 


016314 


012702 


001664 






MOV 


#DISITS*2.R2 


(GET ASCII VALUES 


016320 


012703 


001702 






MOV 


(•PASSES i'R3 


(AND MOVE THEM INTO MESSAGE 


016324 


012223 








MOV 


(R2»*. ( R3 ) ♦ 




016326 


012223 








MOV 


( R2** . < R3 )* 




016330 


012737 


001672 


016060 




MOV 


#PASCNT|*#MSG 


(PASS MESSAGE AORS TO TELETYPE SERVICE 


016336 


052737 


000100 


177564 




BIS 


#100.##TPS 


(SET IE BIT 


016344 


012737 


000610 


000024 


1SI 


MOV 


CPDWN.PIPFVEC 


(ENABLE POWER FAIL TRAP 


016352 


012737 


000340 


000026 




MOV 


«340,MPFVEC*2 


(PRIORITY 7 ON POWER FAIL 


016360 


005267 


162414 






INC 


ICNT 




016364 


116700 


175664 






MOV8 


OPT.CP.R0 


(GET CP TYPE 


016370 


026067 


016572 


162402 




CMP 


PASTAB(R0),ICNT 


(CHECK IF END OF TEST 


016376 


001002 








BNE 


2S 


(BRANCH IF NOT AT END 


016400 


000167 


000060 






JMP 


DONE 




016404 


016702 


162370 




2$t 


MOV 


ICNT.R2 


(GET PASS COUNT 


016410 


006302 








ASL 


R2 




016412 


046002 


016562 






81C 


CPPASSI0) , R2 


(LIMIT PASS COUNT TO 0-6 


016416 


005037 


000016 






CLR 


M16 


(CLEAR T BIT TRAP ADDRESS 


016422 


012737 


000040 


001122 




MOV 


#40 .PPSCQPEF *2 


(SET ITERATION COUNT * 40 


016430 


016216 


016556 






MOV 


PSWTABlai.(SP) 


(PUSH NEXT PASS PSW ON STACK 


016434 


032716 


000020 






BIT 


#20. (SP> 


(WILL ' T 1 BIT BE SET ON NEXT PASS? 


016440 


001406 








BEG 


3$ 


(BRANCH IF NOT 


016442 


012737 


000002 


001122 




MOV 


#2.P#SC0PEF*2 


(SET ITERATION COUNT «= 2 FOR 'T> BIT 


016450 


016737 


000006 


000016 




MOV 


RTJJ.M16 


(SET 'T' BIT TRAP TO RETURN VJA~16 


016456 


012746 


002230 




3SI 


MOV 


#START2,-(SP) 


(RESART PROGRAM AT START2 


016462 


000002 






RTIlt 


RTI 




(RESTART PROGRAM AT START2 WITH NEW PSW 



> (From table below) notei the rti is 
i changed to an rtt if not an 11/05.11/20 



jROUTINE to SET up MEMORY MANAGEMENT TO RELOCATE PROGRAM CODE ABOVE 28K 



016464 


032737 


000100 


177564 DONE t 


BIT 


#100. PPTPS 


(WAIT FOR TTY OUTPUT TO FJNJSH 


016472 


001374 






BNE 


DONE 


*>16474 


105737 


177564 




TSTB 


»#TBS 


(WAIT FOR LAST CHARACTER TO BE PRINTED 


016500 


100375 






BPL 


• -4 


016502 


005027 






CLR 


(PC** 




016504 


000000 




1$» 


.WORD 


0 




016506 


005267 


177772 


2$l 


INC 


IS 


(DELAY WAITING FOR TELETYPE TO FINISH 


016512 


001375 






BNE 


2$ 


(TYPING CHARACTER BEFORE ISSUING RESET 


016514 


000005 






RESET 






016516 


105737 


177570 




TSTB 


•#SHR 




016522 


100003 






BPL 


3$ 




'016524 


004767 


162502 




JSR 


PC. .PRINT 


(PRINT MESSAGE BEGINING AT FOLLOWING AORS 


016530 


016716 






ENOMSG 




016532 


013702 


000042 


3Sl 


MOV 


•#42 1 R2 


(CHECK 0DP/ACT11 MONITOR HOOK 


016536 


001405 






SEO 


D0NE1 




016540 


000005 






RESET 






016542 


004712 




LOGICAL! JSR 


PC.4R2) 


(CO TO DDP/ACTll MONITOR VIA 42 


016544 


000240 






NOP 






016546 


000240 






NOP 






016550 


000240 






NOP 







DZSKC-C BASIC 11 FAMILY INSTRUCTION EXER, MACYli 27(657) 12-0EC-74 11139 PAGE 11-17 

OHOKCE.Pli 

al4552 000137 002224 OONElI JMP RESTARTS ) RESTART PROGRAM 

ITHE BELOW TABLE REPRESENTS THE 'NEW' PSW SET BY THE PROGRAM ON 
ISUCCESSIVE PASSES. 

(NOTE THE BELOW TABLE MAY BE MODJFIE0 TO CAUSE THE PROGRAM TO RUN 
(UNDER USER DEFINED PARAMETERS BY PATCHING IN THE DESIRED PASS PARAMETER 
I FOR EXAMPLE TO CAUSE THE PROGRAM TO RUN WITHOUT SETTING THE 'T« BIT 
I IN ALL PASSES PATCb OUT THE ' T • BIT IN THE TABLE. 

016556 000000 PSWTABl 000000 (ALL 11 FAMILY CP'S 

016560 000020 000020 

ITHE BELOW TABLE IS THE 'BIT MASK' USED TO DETERMINE THE INDEX VALUE 
(NEEDED TO SET TH£ !NEW* PSW, 

016562 177774 CPPASSl 177774 (11/05 

016564 177774 177774 (11/20 

(THE BELOW TaBLE REPRESENTS THOSE BITS IN THE OP WHICH CAN BE SET/CLEAREQ 
016566 000377 PSW8ITI 000377 (11/05 

016570 000377 000377 (11/20 

ITHE BELOW TaBLE CONTAINS THE * OF PASSES REQUIRED TO COMPLETE TEST 
016572 000002 PASTABl .WORD 2 (11/05 

016574 000002 .WORD 2 (11/20 

(MESSAGES 

016576 005015 047514 020127 MSG1; .A8CIZ <15><12J'L0W LIMIT)' 

016604 044514 044515 037524 

016612 000 

016613 110 043511 020110 MSG2I .ASCIZ 'HIGH LIMIT?' 

016620 044514 044515 037524 

016626 000 

016627 015 052012 044510 ILLTEST I , A5C I? <15X12) ' THIS TEST INVALID FOR 11/40-11/45 PLEASE RUN OCOKC ' <15X12) 

016634 020123 042524 052123 

016642 044440 053116 046101 

016650 042111 043040 05U17 

016656 030440 027461 030064 

016664 030455 027461 032464 

016672 050040 042514 051501 

016700 020105 052522 020116 

016706 041504 045521 006503 

016714 000012 

016716 005015 042040 050532 ENDMSGl .ASCIZ <15X12)' DZOKC DONE' 

016724 041513 042040 047117 

016732 020105 

000001 .END 
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OZOKCE.Pll SYMBOL TABLE 



A0CB2 


004564 


ADCB5 


005374 


ADC86 


006062 


ADC87 


0067)0 


ADC0 


C02524 


A0C1 


003400 


ADC2 


004374 


ADC? 


005202 


A0C6 


005672 


ADC7 


006604 


ADO0 


007376 


ADO) 


007602 


AOOIA 


010026 


A001B 


010044 


AD02 


010432 


A003 


011106 


ADOS 


011450 


AD07 


012112 


ASLBl 


003042 


ASL91A 


004)66 


ASL83 


005364 


ASLB4 


004670 


ASLB6 


006044 


ASL87 


007006 


ASL0 


002646 


ASH 


003554 


ASL3 


005116 


ASL* 


004466 


ASL6 


005642 


ASL7 


006432 


ASRB1 


004036 


ASR81A 


004052 


ASRB2 


004634 


ASRB2A 


004652 


ASRB5 


005324 


ASR86 


006)62 


ASRB7 


007024 


ASR0 


002674 


ASR1 


003442 


ASRg 


004410 


ASR3 


005102 


ASR6 


005524 


ASR7 


006466 


BELL 


001747 


BICB1 


010220 


BICB1A 


010242 


B 1 00 


007310 


BIC1 


007724 


B I 02 


010522 


3IC3 


011120 


B 1 07 


012570 


BIN87 


012336 


BIN1 


010400 


BISB1 


010206 


SIS0 


007266 


BIS0A 


007344 


B I Si 


007712 


BIS2 


010460 


BIS2A 


010562 


BIS7 


012530 


BITB1 


010176 


BITB2 


010736 


BITB3 


011270 


BIT86 


011654 


BIT1 


007640 


BIT13 « 


020000 


BIT14 a 


040000 


S I T)5 s 


) 00000 


BIT2 


210546 


8IT6 » 


000100 


8IT8 ■ 


000400 


BPTVEC* 


000014 


C « 


000001 


CBIT 


015536 


CC0 


002340 


CC1 


002354 


CC2 


002370 


CC3 


002402 


CC4 


002416 


CHKSP 


01?342 


CLR0 


002442 


CMPB1 


010152 


CMPB2 


010322 


CMP83 


011302 


CMPN 


015572 


CMP0 


007170 


CMP0A 


007432 


CMP) 


007622 


CMP1A 


007742 


CMP2 


010450 


CMP7 


012046 


COMBI 


004020 


C0MB1A 


004200 


C0MB2 


004546 


C0MB5 


005302 


C0M66 


00*114 


C0MB7 


006724 


COMO 


002506 


COM! 


003566 


COM) 


005160 


COM4 


t. 04276 


C0M6 


005510 


C0M7 


006556 


CPCHK 


014004 


CPPASS 


016562 


DBINB7 


012332 


0BIN7 


011146 


DOATA 


011312 


DOATAB 


011742 


DECB1 


003770 


DECB1A 


004)20 


DECB2 


004702 


0ECB5 


005442 


DECB6A 


006214 


0EC87 


006772 


DEC? 


002566 


DEC1 


003360 


DEC1A 


003630 


0EC2 


004444 


DEC? 


005)34 


DEC6 


205656 


DEC7 


006450 


DIGITS 


001662 


DIGTAB 


001652 


OISPLA- 


177570 


DONE 


016464 


OONEl 


016552 


EMTVECa 


000030 


EMT1 


,313724 


EMTlB 


014004 


EMT1C 


014010 


EMTIO 


014022 


END 


,316244 


ENDMSG 


016716 


EN01 


016246 


ERROR 


001412 


ERRPC 


<501707 


ERRPC0 


001721 


ERRVEC* 


000004 


factor 


001004 


FORXOR 


000740 


FPEVEC* 


000244 


FRSTAD 


001010 


FRSTME 


001012 


GSTST 


003160 


HUT a 


104400 


ICNT 


001000 


ILLTES 


01*627 


INCB1 


003704 


INCB2 


004776 


INCB3 


005334 


INCB6 


006026 


I NCB6A 


006176 


INC87 


006756 


JNC0 


002606 


1 NCI 


003474 


I NC3 


005170 


I NC4 


004326 


INC6 


005620 


INC7 


006616 


IOTVEC* 


200020 


1 0T1 


013624 


I0T1A 


0)3632 


10T1B 


013646 


JMP1 


213052 


JMP3 


013122 


JMP4 


013)60 


JMP? 


013224 


JMP6 


213244 


JMP7 


013302 


JSRTST 


013306 


JSR1 


013370 


JSR1A 


1,13372 


JSR3 


013456 


JSR3A 


013460 


JSR4 


013534 


JSR4A 


013536 


JSR6A 


013570 


kptr « 


000600 


KWlt 


016070 


LKS » 


177546 


LKVEC a 


000100 


LOGICA 


016542 


LPB » 


177516 


LPS » 


177514 


LSTMEM 


002140 


MMVEC a 


000250 


M0VB1 


0)0)26 


MOV0 


207120 


MQV0A 


007150 


M0V1 


0)0012 


M0V7 


0)2016 


MSG 


216060 


MSG1 


016576 


MSG2 


0)6613 


N * 


0000)0 


NEG81 


203754 


NEGB4 


004726 


NEGB6 


006)32 


NEGB7 


007040 


NEG0 


202626 


NEG1 


003620 


NEG2 


004350 


NEG? 


005)46 


NEG6 


205544 


NEG7 


006524 


NULL • 


000000 


NULLS 


0)6064 


OAERR 


212616 


OPT. CP 


014254 


OVFLW 


014332 


pascnt 


001672 


PASSES 


201702 


PASTAB 


016572 


PC a%000007 


PDWN 


000610 



D2QKC-C 

DZQKCE. 


BASIC 1) 
PU 


FAMILY 

SYMBOL 
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TABLE 
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PFAIL 


000656 




PFVEC a 


000024 


P IRQ a 


177772 


PIRVECs 


000240 


PRTY4 « 


i00200 




PRTY6 a 


000300 


PRTY7 » 


000340 


PSW A 


177776 


PSW8IT 


016566 




PSWCHK 


015124 


PSWTAB 


016556 


PUP 


000620 


RECD 


001752 




RELOC 


001132 


RELRl 


001006 


REL0 


002272 


REL1 


006302 




REL2 


012274 


REL3 


0)4306 


RESfRP 


014674 


RESVEC* 


000010 




RETPC 


001230 


ROLBl 


0037)6 


RQLB2 


004620 


R0UB3 


2054)0 




R0LB6 


006146 


R0L86A 


006242 


RQLB7 


007056 


ROL0 


002660 




R0L1 


003414 


ROLlA 


003826 


R0L3 


00*216 


R0L4 


L04424 




R0L6 


005474 


R0L7 


006634 


R0R81 


004004 


R0RB1A 


£04074 




R0RB4 


004602 


R0RB5 


005352 


RQRB* 


006)00 


R0RB7 


£06742 




ROR0 


002544 


R0R1 


003344 


RQR1A 


003456 


R0R2 


0043)2 




R0R5 


005070 


R0R6 


005564 


RQR7 


006506 


RT 11 


H6462 




R0 a 


*000000 


R1 a*00000) 


R10 AX000000 


Rll « 


*£00001 




R12 a 


*000002 


R13 a 


*000003 


R14 A *0 0 0 0 0 4 


Ri5 * 


*£00005 




R2 a 


*000002 


R3 « 


*000003 


R4 AX000004 


R5 » 


*200005 




SBCB1 


003730 


SBCB3 


005430 


SBC34 


0047)4 


SBCB6 


006002 




SBC87 


006670 


SBC0 


0027)0 


SBC1 


0035)0 


SBC1A 


003526 




SBC5 


005230 


SBC6 


005600 


SBC7 


0064)2 


SBINB7 


012322 




SBIN7 


011744 


SCOPE a 


104000 


SCOPEA 


0010)6 


SCOPEB 


001046 




SCOPEC 


001102 


SCOPED 


001)14 


8C0PEE 


001)26 


SCOPEF 


001120 




SDATA 


011310 


SDATAB 


011740 


SLR a 


)77774 


SP «X000006 




SPCHK 


015372 


SR0 ■ 


177572 


START 


002066 


START) 


102160 




START2 


002230 


starts 


002224 


STATUS 


001714 


STKPTRa 


000500 




SUB0 


007136 


SUB1 


007660 


SUB1A 


007766 


SUB1B 


010002 




SUB2 


010476 


SUB2A 


0)0616 


SUB) 


0)1032 


SU83A 


011054 




SUB6 


011470 


SUB7 


012066 


SWA80 


002726 


SWABl 


004134 




SWAB2 


004340 


5WAB4 


004760 


SWABS 


006226 


SWAB7 


006540 




SWR a 


177570 


T ■ 


000020 


TBJTVE* 


0000)4 


TICKS 


000776 




TK8 a 


177562 


TKS a 


177560 


TPB « 


177566 


TPS A 


177564 




TPVEC a 


000064 


TRAPVEa 


000034 


TRAP1 


0141)2 


TRAP1C 


014136 




TRTVECa 


000014 


TSTBl 


004)46 


T5TB2 


004736 


TSTB2A 


004746 




TSTB6 


005754 


TST0 


002464 


TST1 


003604 


TST2 


004266 




TST6 


006256 


TTYCHK 


015734 


UBM6 


006262 


UBREAKA 


177770 




UB7 


011754 


UWM6 


005450 


UWM7 


00*332 


UW7 


00*336 




V a 


000002 


Z A 


000004 


SCRLF 


001744 


SPILLS 

.PRINT 


001002 

001232 




SFORM0 


001330 

016734 


SRESTR 


000240 


SSAVR 


000214 



ERRORS DETECTED! 0/2 

#,020KCE*02QKCE,PU 
RUN-TIME! 12 22 0 SECONDS 
CORE USED! 8K 




[d 




MAINDEC 

CHANGE ORDER 



originator Barry G. Irrgang 
TEL EXT X3616 % DATE 11/18/75 

disc proj no. V98 05169 

COST CENTER NO. 3Q1 . , 

nr d>u< ? 



MCO NO . /?£,//_ 
SHEET y OF _ 
DATE RECEIVED 

FIRST ISSUE ~ 

FINAL ISSUE 



r<2-<£7/ 



problem Arbitration logic test does not work properly with console PGM TO BE CHANGED 
DL11 over 600 baud and KWll-L present. DZQKC 



DISP CODE 



CORRECTION 

1. Delay test long enough to ensure KWll-L has interrupt up. 

2. Raise PSW of error routing to ensure error will be 
reported properly if one occurs. 





PRODUCT LINES 
AFFECTED 



DOCUMENT/PART NO. 



OLD NEW 
REV REV 



MAINDEC-11-. DZQKC E / El 03 PATCH 



2266 

14146 



DESCRIPTION OF CHANGE 



FROM 



16164 5227 

6166 O' 



4737 

160 

5227 

0 

1375 

207 



PDP-11 



DOCUMENTATION 

AFFECTED 

■ DIAGNOSTICS 

□ TECH MANUAL 

□ TESTER 

□ TEST PROG 



□ ENG SPEC 

□ PURCH SPEC 



FIELD SERVICE 
AFFECTED 
B YES □ NO 

□ Customer Charge 

□ Product line Charge 

Dpi 



Go 14 






A-r £■ 



DISPOSITION CODES 



Q0 _ (DELETED) 

01 — (DELETED) 

02 — USE PRESENT STOCK UNTIL NEW STOCK AVAILABLE (PHASE IN) 

03 — REWORK IMMEDIATELY (RETROFIT) 

04 — (DELETED) 

06 — (DELETED) 

06 — DOCUMENT CORRECTION 

07 — NEW ITEM (THIS ASSEMBLY) 

08 - (DELETED) 

09 — SCRAP IMMEDIATELY 



DEC 16-(331)-1059B-R673 



I Contact Software 
Distribution Center 
for price. 

| Information Only 



APPROVAL SIGNATURES 



DIAGNOSTIC ENGR. 
MFG, ENGR, 

FIELD SERVICE 
PRODUCT ENGR, 



Typewritten 

Ba rry Irrg« 

B. Kellick* 
S. Johnson) 
D. Testa / x 



'Hand Signature 



SEE REVERSE FOR INSTRUCTIONS (IN order to fill out form properly) 













